|
program Terne; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes { you can add units after this }; const max=100; var a,b,c:integer; cont:integer; function Terna(a,b,c:integer):boolean; begin Terna := (a*a+b*b) = (c*c); end; {$IFDEF WINDOWS}{$R Terne.rc}{$ENDIF} begin cont:=0; writeln('Conta le terne pitagoriche con'); writeln('1 <= a < b < c <= 100'); writeln; for a:=1 to max do for b:=a+1 to max do for c:=b+1 to max do begin if Terna(a,b,c) then begin inc(cont); writeln(cont:3,'-> a: ',a:4,' b: ',b:4,' c: ',c:4); end; end; writeln('Il numero di terne e'': ', cont); readln; end.
|
|
