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

Question

Информатика

Натолий

2 июня, 07:34

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

+5

Ответы (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.