Напишите программу, которая выводит в столбик цифры введённого числа, начиная с первой. Используйте процедуру.
Входные данные
Входная строка содержит неотрицательное число N .
Выходные данные
Программа должна вывести в столбик все цифры введённого числа, начиная с первой.
Примеры
входные данные
1234
выходные данные
1
2
3
4
На паскале.
Входные данные
Входная строка содержит неотрицательное число N .
Выходные данные
Программа должна вывести в столбик все цифры введённого числа, начиная с первой.
Примеры
входные данные
1234
выходные данные
1
2
3
4
На паскале.
Answers & Comments
Verified answer
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.