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