Цикл с условием Опции

[Анна]

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


Пробелемы ..

uses crt;
var n: byte;

begin
clrscr;

writeln ('Введите число: '); readln (n);
N mod 10;

{ :( }

end.

Как с право на лево вывести цифры? Не знаю.

[Дож]

Анна, нечто типа этого:

base:=1;
While 10*base <= n do begin
base:=base*10; {Делает в base столько нулей, сколько разрядов в n}
end;
k:=n;{Дабы не испортить значение в n юзаем др. переменную}
While base<>1 do begin
write(k div base){печатаем разряд номер КОЛ_НУЛЕЙ_BASE}
k:=k mod base;{Убираем уже ненужный разряд}
base:=base div 10;{делим base на 10}
end;
write(k);