Составьте программу подсчета количества слов мама в строке. Pascal ABC
Answers & Comments
Liss1024
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.
Answers & Comments
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.