Ввести с клавиатуры строку. Сформировать новую строку, в которой все символы из первой...

Question

Ввести с клавиатуры строку. Сформировать новую строку, в которой все символы из первой строки разделены пробелами. помогите, пожалуйста)

Answer 1

Var a:integer;
    d:string;
    f:char;
    begin
writeln('введите сторку');
readln(d);
for a:=1 to length(d) do begin
f:=d[a];
write(f);
write(' ');
end;
end.

Comments

это что называется, небольшая хитрость. Не уверен что тот код ,который хочет видеть ваш преподаватель, должен выглядеть именно так.