-Цитата от Трэй

-Цитата от Hammer

Код:

  for i:= 1 to 3 do 
    begin
      x:= c mod 10;
      c:= c div 10;
      a[i]:= x;
   end;

спс.к концу года чё-то совсем в лом думать

почему тогда тот кусок программы работает?и работает как надо

Твой код неправильно работает. Ты просто делишь число на 10 нацело. И всё.