Регистрация
спаркер
15.03.2021 10:25
Информатика
Есть ответ 👍

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

293
407
Посмотреть ответы 2

Ответы на вопрос:

aveter256
aveter256
4,5(70 оценок)
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.
missvictoriak
missvictoriak
4,8(54 оценок)
1.  program chislo; var s,i: integer; begin for i: =3 to 100 do s: =s div 6; if s mod 6=0 then begin readln(s) writeln('ваш результат: ', s); end; end. 2. program chetno;   var s,i: integer;   begin  for i: =-20 to 1200 do s: =s div 2; if s mod 2 = 0 then begin readln(s);   writeln('ваш результат: ', s); end; end третью не помню : (

Популярно: Информатика