Составить программу для решения следующей задачи: дана последовательность символов, концом которой является точка. Подсчитать, сколько в этой последовательности букв «ab»?

Программа на Паскале подсчитывает, сколько раз подряд встречается сочетание символов ab до точки.

var
c, prev: char;
k: integer;
begin
k := 0;
prev := ' ';
repeat
read(c);
if (prev = 'a') and (c = 'b') then
k := k + 1;
prev := c;
until c = '.';
writeln(k);
end.

0 0 Пожаловаться