ПОМОГИТЕ СРОЧНО(( Дана строковая величина S определите каких букв в ней больше а или о
Answers & Comments
danabel2000
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.
Answers & Comments
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.