Question

Напишите программу, которая выводит в столбик цифры введённого числа, начиная с первой. Используйте процедуру.

Входные данные
Входная строка содержит неотрицательное число N .

Выходные данные
Программа должна вывести в столбик все цифры введённого числа, начиная с первой.

Примеры
входные данные
1234
выходные данные
1
2
3
4
На паскале.

Answer 1

Procedure stolb(a: integer);
var  s: string;
i: integer;
begin
str(a,s);
for i:=1 to length(s) do writeln(s[i]);
end;

var a:integer;
begin
write('Введите число: ');
readln (a);
stolb (a);
readln
end.