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

Question

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

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.