Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Составьте программу, определяющую,каких букв, "а" или "о" больше

Ответ оставил Гость

Var
  s:string;
  i,n1,n2:integer;
begin
 readln(s);
 for i:=1 to length(s) do
  begin;
   if s[i]=а then inc(n1);
   if s[i]=о then inc(n2);
  end;
 if n1>n2 then writeln(a);
 if n2>n1 then writeln(о);
 if n1=n2 then writeln(Поровну);
end.