Đăng nhập để hỏi chi tiết
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
8007
4552
Code
uses crt;
var a,b,c,n,temp: integer;
begin
for a := 1 to 9 do
for b := 0 to 9 do
for c := 0 to 9 do
begin
temp := a*100 + b*10 + c;
for n := 1 to 31 do
if (a*a + b*b + c*c + n) = temp then
begin
writeln(temp);
break;
end;
end;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin