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

Помогите пожалуйста, очень нужно...
Нужно дополнить программу недостающими
командами.
(Получите новую строку,заменив в заданной строке все слоги "ма" на "па".)
program zadacha2;
var t,st:string;
n,i:integer;
Begin
writeln(введите текст);
..........................................;
st:=t;
n:=length (st);
for i:=1 to n-1 do
if copy(st, i,2)=ма then
begin
delete(st, i,2);
.......................;
end;
writeln(старая строка=,t,новая строка=,st);
End.

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

Новейшаю ( я не уверен)