Дана строка заменить все вхождения "по" на "под". Написать программу на Паскале.
Answers & Comments
Segrif
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.
Answers & Comments
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.