Một bộ ba số Pitago gồm ba số nguyên dương a, b, c sao cho a^2 + b^2 = c^2. Ví dụ (3,4,5), (6,8,10) là các bộ ba số Pitago. Yêu cầu: Cho số nguyên dương n. Đếm số lượng các bộ ba số Pitago thỏa mãn a < b < c ≤ n. Dữ liệu vào: từ tệp văn bản BSPITAGO.INP ghi duy nhất số nguyên dương n. Kết quả: ghi ra tệp văn bản BSPITAGO.OUT số lượng bộ ba số Pitago thỏa mãn yêu cầu. Ví dụ: BSPITAGO.INP BSPITAGO.OUT 5 1 11 2 HELP PASCAL
1 câu trả lời
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.