uses crt; var a,b,c:longint; begin clrscr; for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do if(a*a*a+b*b*b+c*c*c=a*100+b*10+c)then writeln(a,b,c); readln end.
program oken; uses crt; var a,b,c: qword; begin clrscr; write('Cac so can tim: '); for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do if (a*100+b*10+c=a*a*a+b*b*b+c*c*c) then write(a,b,c,' '); readln; end.