xuất ra tất cả các số có 3 chữ số mà tổng lập phương các chữ số bằng chính nó
2 câu trả lời
For a:=1 to 9 do
For b:=0 to 9 do
For c:=0 to 9 do
Begin
S:= a*a*a + b*b*b + c*c*c;
If s= a*100+b*10+c then write(a,b,c);
End;
Program .....;
Uses crt;
Var
For a:=1 to 9 do
For b:=0 to 9 do
For c:=0 to 9 do
Begin
S:= a*a*a + b*b*b + c*c*c;
If s= a*100+b*10+c then write(a,b,c);
End;