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

Question

Информатика

Римма

9 октября, 07:55

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

+3

Ответы (1)

Знаете ответ?

Петруся · Answer 1

Var s:string; i:integer;

begin

i:=1;

read (s) ;

while i
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.