Sirul lui FibonacciProgram calcul;var i,f1,f2,f3:integer;beginwrite(‘n=’); readln(n);f1:=1;f2:=1;write (f1,’ ‘,f2,’ ‘);for i:=3 to n dobegin f3:=f1+f2;write (f3,’ ‘);f1:=f2;f2:=f3;end;end..
Numar prim
Program nrprim;Var n,i:integer; h:Boolean;Beginwrite(‘n=’); readln(n);h:=true; for i := 2 to trunc (sqrt (n)) do if n mod i =0 then h:=false;if h then write (n, ‘ este numar prim’) else write (‘nu este’);end.
Cmmdc cu impartiri successive
program cmmdcii;var a,b,r,aux :integer;beginread(a);read (b);if a <b then begin aux:=a; a:=b; b:=aux; end;while r<>0 dobeginr:=a mod ba:=b;b:=r;end;write (‘cmmdc=’,a);end.
