Определить, какая буква: "о" или "а" входит в него чаще и насколько - Pascal ABC

Формулировка задачи:

2)Определить какая буква о или а входит в него чаще и на сколько их надо написать множеством

Код к задаче: «Определить, какая буква: "о" или "а" входит в него чаще и насколько - Pascal ABC»

textual
var
  s: string;
  i, counta, counto: integer;
 
begin
  counta := 0;
  counto := 0;
  write('Введите строку: ');
  readln(s);
  for i := 1 to length(s) do
  begin
    if s[i] = 'a' then 
      inc(counta);
    if s[i] = 'o' then 
      inc(counto);      
  end;
  if counta > counto then 
    writeln('Буква "а" чаще на ', counta - counto)
  else 
  if counto > counta then 
    writeln('Буква "o" чаще на ', counto - counta)
  else
    writeln('Одинаково.');
end.

8   голосов, оценка 4.375 из 5


СОХРАНИТЬ ССЫЛКУ