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

Question

Варламий

17 января, 04:28

+5

Ответы (1)

Знаете ответ?

Кристинка · Answer 1

Var

n: longint;

begin

readln (n) ;

while n > 0 do

begin

writeln (n mod 10) ;

n : = n div 10;

end;

end.