Дана строка заменить все вхождения "по" на "под". Написать программу на Паскале.

1

Ответы и объяснения

  • Segrif
  • почетный грамотей
2013-11-17T14:55:01+00:00
Var s:string;i:integer;
begin
i:=1;
read(s);
while i<length(s) do
begin
if (s[i]='п') and (s[i+1]='о') then s:=copy(s,1,i+1)+'д'+copy(s,i+2,length(s)-i-1);
i:=i+1
end;
write(s)
end.