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.