Заменить вторую букву в сочетании «ии» на букву «е» во всем тексте - Pascal ABC

Формулировка задачи:

Дан текст. Заменить вторую букву в сочетании «ии» на букву «е» во всем тексте.

Код к задаче: «Заменить вторую букву в сочетании «ии» на букву «е» во всем тексте - Pascal ABC»

textual
var s : string;
begin
  readln(s);
  while Pos('ии',s)>0 do s[Pos('ии',s)+1] := 'e';
  writeln(s);
end.

7   голосов, оценка 4.286 из 5


СОХРАНИТЬ ССЫЛКУ