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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
