Заменить вторую букву в сочетании «ии» на букву «е» во всем тексте - Pascal ABC
Формулировка задачи:
Дан текст. Заменить вторую букву в сочетании «ии» на букву «е» во всем тексте.
Решение задачи: «Заменить вторую букву в сочетании «ии» на букву «е» во всем тексте»
textual
Листинг программы
var s : string; begin readln(s); while Pos('ии',s)>0 do s[Pos('ии',s)+1] := 'e'; writeln(s); end.
Объяснение кода листинга программы
- Переменная s объявляется типа string.
- Считывается строка из стандартного ввода.
- Запускается цикл while, условием которого является условие Pos('ии',s) > 0.
- Если условие истинно, то записывается значение переменной Pos('ии',s) + 1 в переменную s.
- Если условие ложно, то цикл завершается.
- Выводится измененная строка s.