Определить и вывести на жкран цифры целого числа n

Question

Информатика

Панюля

2 ноября, 13:43

Определить и вывести на жкран цифры целого числа n

+5

Ответы (1)

Знаете ответ на вопрос?

Андрюша · Answer 1

Получение цифр числа по схеме последовательного деления на 10

(порядок следования цифр будет изменен на обратный)

var

n:integer;

begin

Write ('n=') ; Read (n) ;

n:=Abs (n) ; { от ввода отрицательного числа }

while n>0 do begin

Write (n mod 10,' ') ;

n:=n div 10;

end

end.

Пример

n=28504

4 0 5 8 2