ПОМОГИТЕ СРОЧНО(( Дана строковая величина S определите каких букв в ней больше а или о
ПОМОГИТЕ СРОЧНО((
Дана строковая величина S определите каких букв в ней больше а или о
Гость
Ответ(ы) на вопрос:
Гостьvar s:string; a,o,i:integer;
begin
readln(s);
for i:=1 to length(s) do begin
if s[i]='а' or s[i]='a' then a:=a+1; //для английских и русских букв
if s[i]='о' or s[i]='o' then o:=o+1;
end;
end.
Не нашли ответ?
Похожие вопросы