Консультация № 193587
23.09.2018, 16:14
0.00 руб.
0 1 1
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

В PascalABC составить программу нахождения количества слогов "ма" в строке s. Предложение вводится с экрана.

Обсуждение

давно
Старший Модератор
31795
6196
24.09.2018, 13:59
общий
это ответ
Здравствуйте, svrvsvrv!

Код в приложении:
[code lang=pascal]var
a:string;
function b(c,d:string):integer;
begin
if pos(d,c)>0 then
begin
delete(c,pos(d,c),length(d));
b:=1+b(c,d);
end else b:=0;
end;
begin
write('enter string:');
readln(a);
writeln('result:',b(a,'ma'));
end.[/code]
Удачи!
5
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа