Написать программу, которая вставляет перед каждой второй буквой во введенной фразе слог "ку-" - Free Pascal
Формулировка задачи:
Надо написать программу, которая вставляет перед каждой второй буквой во введенной фразе слог "ку-".
Решение задачи: «Написать программу, которая вставляет перед каждой второй буквой во введенной фразе слог "ку-"»
textual
Листинг программы
var
s: String;
i: Integer;
begin
Write('Строка: '); ReadLn(s);
for i:=Length(s) div 2 downto 1 do Insert('ку-',s,i*2);
WriteLn(s);
end.
Объяснение кода листинга программы
- Объявлены две переменные: строка s типа String и целое число i.
- Пользователю предлагается ввести строку.
- В цикле выполняется вставка слога
ку-перед каждой второй буквой в строке s, начиная с позиции i*2. - Выводится измененная строка.