Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Помогите, прошу!
Распечатать заданное слово в одной строке с разрядкой (пробел после каждой буквы).

Ответ оставил Гость

Var s:string; i:integer;
begin
writeln(Введите слово:);
readln(s);
for i:=1 to length(s) do write(s[i], );
end.

Пример:
Введите слово:
primer
p r i m e r