Регистрация
Sofia20091
23.08.2020 10:05
Информатика
Есть ответ 👍

это диктант и лучший ответ оценку и подписку

209
387
Посмотреть ответы 1

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

Меньон258
Меньон258
4,5(97 оценок)
Var     s: string;     k1,k2,i: longint; begin       read(s);           k1 : = 0; k2 : = 0;       for i : = 1  to length(s) do begin             if (s[i]  =  s[1]) then inc(k1);       if (s[i] = s[length(s)]) then inc(k2);     end;           if (k1  >   k2)  then write('первая  буква  встречается  чаще  последней  буквы.');     if (k1 < k2) then write('последняя буква встречается чаще первой буквы.');       if (k1 = k2) then write('первая  и последняя буквы встречаются одинаковое кол-во раз.');   end.

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