Question

Am nevoie de un algoritm pentru paskal

Answer 1

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.