Цифры числа в том же порядке Опции

[Ozzя]

Студентка одна попросила о помощи. Задача

ДАНО нат. число. Поместить его цифры в массив в том же порядке, в каком они были записаны.

Склеил из форумовских

program forforum;
var
  a, b  : LongInt;
  q     : Array [1..16] of Integer;
  i, n  : Integer;

begin
  readLn(a);
  b:=0;
  while a<>0 do
    begin
      b:=b*10+a mod 10;
      a:=a div 10;
    end;
  i:=1;
  while b<>0 do
    begin
      n:=i;
      a:= b mod 10;
      b:= b div 10;
      q[i]:=a;
      i:=i+1;
    end;
  for i:=1 to n do
    writeLn(q[i]);
  readln;
end.

Ан нет, преподу не понравилось. Нужно оптимизировать, обойдясь одним циклом. И что-то я тут задумался

Сообщение отредактировано: Ozzя - 10.02.2010 15:50

[volvo]

Оззя, ты чего?

program forforum;
var
  a, b  : LongInt;
  q     : Array [1..16] of Integer;
  i, n  : Integer;
begin
  readLn(a);

  i := 0;
  b := 1000000000; n := 10;
  while a > 0 do
  begin
    if b > a then begin
      b := b div 10; dec(n);
    end
    else begin
      q[n - i] := a mod 10; inc(i);
      a := a div 10;
      b := b div 10;
    end;
  end;

  for i := 1 to n do
    writeLn(q[i]);
  readln;
end.