Цикл repeat until

[ac1d_buRn]

var x,x1:integer;

begin
  write('write the number - '); read(x);
    repeat
      x1:= x mod 10;
      writeln(x1);
    until x1<0;
  readln;

Ввожу число 456, а он выводит бесконечный цикл с числом 6
Почему не 4, 5 и 6 ?

[netrino]

потому что вы x не меняете.

x1 := x mod 10;
x := x div 10;

и остаток от деления(mod) никогда не будет меньше нуля

[ac1d_buRn]

var x:integer;

begin
  write('write the number - '); read(x);
  repeat
  x := x div 10;
  writeln(x);
  until x=0;
  readln;
  readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.

Ввожу больше 9 цифр, то выдаёт ошибку: Debugger Exception Notification. Project Project2.exe raised exception class ElnOutError with message 'Invalid numberic input'. Process stopped. Use step or Run to continue.

[netrino]

если это дельфи, то максимальное число, которое можно держать в integer - 2147483648 - 1.

[ac1d_buRn]

//delete//

рабочий код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var x:integer;

begin
  write('write the number - '); read(x);
    repeat
     Writeln(x mod 10);
     x:=x div 10;
    until x=0;

  readln;
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.