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

[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

[Unconnected]

Может, препод это имел в виду?

var a:string;
    m:array[1..16] of byte;
    i:byte;
    code:integer;
begin
  readln(a);
  for i:=1 to length(a) do begin
    val(a[i],m[i],code);
    writeln(m[i]);
  end;
end.