Составьте программу подсчета количества слов мама в строке.

Pascal ABC

Question

Информатика

Тамуся

14 июля, 05:22

Составьте программу подсчета количества слов мама в строке.

Pascal ABC

+3

Ответы (1)

Знаете ответ?

Ишута · Answer 1

Var x:string;

i, y, z:longint;

begin

readln (x) ;

y:=length (x) ;

for I:=4 to y do

begin

if (x[i-3]='м') and (x[i-2]='а') and (x[i-1]='м') and (x[i]='а') then z:=z+1;

end;

write (z)

end.

Составьте программу подсчета количества слов мама в строке.Pascal ABC

Составьте программу подсчета количества слов мама в строке.

Pascal ABC