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ó 25/08/2021 Bởi Allison 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ó
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; Bình luận
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; Bình luận
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;
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;