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;