я думаю начинать надо с abc=100a+10b+c
заранее благодарен
Добавлено через 1 мин.
моя программа
var
a,b,c,n:integer;
procedure q( var i,n:integer);
Begin
while n<>0 do begin
i:=number mod 10;
n:=n div 10;
End;
end;
Begin
for n:=99 to 1000 Do begin
a:=q(a,n);
b:=q(b,n);
c:=q(c,n);
if (n=a*a*a+b*b*b+c*c*c) then writeln(n);
end;
read(a);
end.