давно
Старший Модератор
31795
6196
24.09.2018, 12:48
общий
это ответ
Здравствуйте, svrvsvrv!
Код в приложении:
[code lang=pascal]var
a:string;
b:integer;
begin
write('enter string:');
readln(a);
b:=0;
while pos('mama',a)>0 do
begin
delete(a,pos('mama',a),4);
inc(b);
end;
writeln('result:=',b);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.