Все буквы «и» в имени продублировать - Pascal ABC
Формулировка задачи:
Задание:
Все буквы «и» в имени продублировать.
Имя допустим Сергей.
Помогите пожалуйста.
Решение задачи: «Все буквы «и» в имени продублировать»
textual
Листинг программы
var
s : string;
i : integer;
begin
write('введите имя: ');
readln(s);
for i := length(s) downto 1 do
case s[i] of
'и' : insert('и', s, i);
'И' : insert('И', s, i)
end;
writeln('новое имя: ', s)
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д