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

1 câu trả lời

var i,j,n,cnt,k:longint;
begin
assign(input,'BSPITAGO.inp');reset(input);
assign(output,'BSPITAGO.out');rewrite(output);
 readln(n);
for i := 3 to n do
 for j := i+1 to n do
    begin
      k := (i*i)+(j*j);
      if frac(sqrt(k))=0 then
        if sqrt(k)<=n then inc(cnt) else break;
    end;
writeln(cnt);
close(input);close(output);
end.