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

пацаны, помогите

что-то я не выкупаю как эта херня работает

Показать скрытый текст

for i:=1 to 2 do begin
c:=c div 10;
a[i]:=c;

в идеале трехзначное число должно разбиваться на цифры
но получается в первом элементе остаётся двузначное число

Код:

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