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

[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

[klem4]

вот мой вариант, не знаю на сколько проактит у препода, log10 и power можно заменить как ужы было сказано, + если a = 0, надо отдельную ветку сделать. А так работает

uses math;
var
    a           : Int64;
    i           : integer;
    q           : Array [1..64] of Integer;
begin
    a := 9223372036854775807;
    for i :=trunc( log10(a) ) downto 0 do q[i+1] := (a div trunc( power(10, i) ) mod 10);
    for i := trunc( log10(a) ) + 1 downto 1 do write(q[i]);
end.

ps вариант с минимальным кол-вом переменных, trunc( log10(a) ) можно запомнить при желании.

Сообщение отредактировано: klem4 - 16.02.2010 22:03