Răspuns :
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.
Vă mulțumim pentru vizita pe platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Așteptăm cu entuziasm să reveniți și vă invităm să ne adăugați la lista de favorite!