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

Узнай цену своей работы

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

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

Решение задачи: «Заменить вторую букву в сочетании «ии» на букву «е» во всем тексте»

textual
Листинг программы
var s : string;
begin
  readln(s);
  while Pos('ии',s)>0 do s[Pos('ии',s)+1] := 'e';
  writeln(s);
end.

Объяснение кода листинга программы

  1. Переменная s объявляется типа string.
  2. Считывается строка из стандартного ввода.
  3. Запускается цикл while, условием которого является условие Pos('ии',s) > 0.
  4. Если условие истинно, то записывается значение переменной Pos('ии',s) + 1 в переменную s.
  5. Если условие ложно, то цикл завершается.
  6. Выводится измененная строка s.

Оцени полезность:

7   голосов , оценка 4.286 из 5
Похожие ответы