Listing: PITAGORA.PAS Program Pitagora; var a,b,c:Longint; f:Text; procedure Citire; begin Assign(f,'PITAGORA.IN'); Reset(f); Readln(f,a); Close(f) end; procedure Rezolvare; var d:Longint; begin Assign(f,'PITAGORA.OUT'); Rewrite(f); if Odd(a) then d:=1 else d:=2; while d<=a do begin if (a*a mod d=0) then begin c:=(a*a div d+d) div 2; b:=c-d; if (a<b) and (a*a=(c-b)*(b+c)) then Writeln(f,b,' ',c) end; Inc(d,2) end; Close(f) end; Begin Citire; Rezolvare End. [cuprins] |