Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Составить программу удаляющую из данного текста все буквосочетания «ма» и выводящую получившийся текст и его длину.

Ответ оставил Гость

//Pascal ABC.NET v3.0 сборка 1111
Var
 s:string;
 i:integer;
begin
 readln(s);
 while pos(ма,s)<>0 do
  delete(s,pos(ма,s),2);
 write(Final string:,s,; длина=,length(s));
end.

Пример ввода:
мастер на все руки
Пример вывода:
Final string:стер на все руки; длина=16