Đă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é!
uses crt;
var a, b, c, n, res: longint;
begin
clrscr;
readln(n);
for a:=3 to n do
for b:=a + 1 to n do
begin
c:=a * a + b * b;
if frac(sqrt(c)) = 0 then
if sqrt(c) <= n then inc(res) else break;
end;
writeln(res);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?

Bảng tin