Bộ Số Pytago Cho số nguyên dương a, hãy đếm xem có bao nhiêu số nguyên dương b>a để `\sqrt{a^2+b^2}` là một số nguyên. Mô tả đầu vào Một số nguyên dương aa duy nhất Ràng buộc: 1≤a≤10^6 50% số test có 1≤a≤10^4 50% số test còn lại không có ràng buộc gì thêm Mô tả đầu ra Một số nguyên dương duy nhất là kết quả của bài toán. Test case mẫu Đầu vào mẫu 1 3 Đầu ra mẫu 1 1 Giải nghĩa Số nguyên dương duy nhất thỏa mãn là 4

1 câu trả lời

Mình gửi đáp án:

Var i:Longint;
    d,a:Qword;
Function Min(a,b:Qword):Qword;
 Begin
  If a>b then Exit(b)
   Else Exit(a);
 End;
Function Max(a,b:Qword):Qword;
 Begin
  If a>b then Exit(a)
   Else Exit(b);
 End;
 Begin
  Read(a);
  For i:=1 to a-1 do
   If Sqr(a) mod i = 0 then
    If ( (i+Sqr(a) div i) mod 2 = 0) and ( (Max(i,Sqr(a) div i ) -  Min(i,Sqr(a) div i )) div 2 >a) then d:=d+1;
  Write(d);
  Readln;
 End.
    

Câu hỏi trong lớp Xem thêm