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

Question

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

Answer 1

Var
  n, x, a: integer;
begin
write('Введите число: ' );
readln(n);  
while (n > 0 ) do
   begin
   a := n mod 10;
   x := x * 10 + a;
   n := n div 10;
   end; 
writeln('Ответ: ', x); 
end.