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

[Анна]

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


Пробелемы ..

uses crt;
var n: byte;

begin
clrscr;

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

{ :( }

end.

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

[Анна]

To: Дож
ага, разобралась сорри за ложную тревогу.
Можешь прокомментировать?

To: volvo
А твою программу я понимаю как:

var

  x: integer;


begin

  x := 1265; 

  while x <> 0 do begin {пока число не 0 выполняется цикл ...}

    write(x mod 10); {выводим остаток от делимого числа}

    x := x div 10; {это число делим без остатка и начинаеим цикл снова, до тех пор пока оно не обратится в 0}

  end; {заверш. цикл}

end. {заверш. программу}