Помогите пожалуйста!!!! Вывести все символы введенного слова в столбик. Записать программу: (Паскаль АВС)
Var
s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
writeln(s[i]);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var
s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
writeln(s[i]);
end.