Repeat циклы " Дано целое число N (> 0). Используя операции деления без остатка и взятия остатка от деления, вывести все его цифры, начиная с самой правой (разряда единиц)."

Question

Дарена

24 февраля, 06:45

+5

Ответы (1)

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

Зиновия · Answer 1

Var n, m:integer;

begin

writeln ('Введи число:') ;

readln (n) ;

repeat

begin

m:=n mod 10;

n:=n div 10;

writeln (m) ;

end;

until n=0;

end.