составьте программу которая предлагает ввести строку и выводит её на экран по одному символу в столбик Прошу помочь, очень срочно!
Var s : string; i : integer; begin readln(s); for i := 1 to length(s) do writeln(s[i]); end.
А можно полностью расписать?)
for i := 1 to length(s) бежим по символам строки writeln(s[i]) - выводим i й элемент