Question

Turbo Pascal
Прошу помочь
Задание:
С клавиатуры вводится слово в латинском алфавите. Необходимо переработать слово по заданному правилу. Переработанное слово вывести на экран монитора.
После каждой буквы исходного слова вставить заданную букву.

Answer 1

ar

s:string;

a:Char;

i:integer;

begin

write('Введите строку》');

read(s);

write('Введите символ》');

read(a);

for i:=1 to length(s)-1 do

write(s[i],a);

write(s[length(s)])

end.