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

Question

Информатика

Вонифат

2 апреля, 13:33

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

+3

Ответы (1)

Знаете ответ на вопрос?

Дуняха · Answer 1

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.