第1个回答 2012-05-19
最大的弦数就是200啊
Var a,b,n,i,j,k:longint;
Begin
Readln(a,b);
n:=0;
For i:=a to b do
For j:=2 to b-1 do
For k:=2 to b-1 do begin
If (i*i=j*j+k*k) then begin
writeln(I,'*',i,'=',j,'*',j,'+',k,'*',k);
N:=n+1;
end;
End;
Writeln(n:3);
Readln
End.