Кто знает в pascal abc программа которая во введенном слове подсчитывала бы число букв 'а' и заменяла их буквами 'б'

248

318

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

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

Gggmim

Информатика

4,8(97 оценок)

{вот правильное решение я там забыл то чтобы подсчитывать число букв a} var s: string; i, id, len, max, count,q: byte; begin q: =0; readln(s); len : = length(s); max : = 0; id : = 0; count : = 0; for i: =1 to len do if s[i] < > ' ' then count : = count + 1 else begin if count > max then begin max : = count; id : = i - count; end; count : = 0 end; if count > max then begin max : = count; id : = i - count; end; for i: =id to id+max do if s[i] = 'a' then begin q: =q+1; s[i] : = 'b'; writeln(s,' ' , q); end; end.