Нужно дополнить программу недостающими . (получите новую строку,заменив в заданной строке все слоги "ма" на "па".) 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.

san11217    1   11.07.2019 11:00    4