Консультация № 193586
23.09.2018, 16:13
0.00 руб.
0 1 1
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

Составить в PascalABC программу подсчёта слов "мама" в строке. Предложение вводится с клавиатуры.

Обсуждение

давно
Старший Модератор
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]
Удачи!
5
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа