давно
Старший Модератор
31795
6196
24.09.2018, 13:09
общий
это ответ
Здравствуйте, svrvsvrv!
Код в приложении:
[code lang=pascal]var
a,b:string;
c,d,e:integer;
begin
writeln('enter string:');
readln(a);
b:='mama';
e:=0;
for c:=1 to length(a)-1do
if a[c]=b[1]then
begin
d:=length(b);
while(d>0)and(a[c+d-1]=b[d])do
dec(d);
if d=0 then inc(e);
end;
writeln('result:=',e);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.