Склеил из форумовских
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я -