Să se calculeze: S=1+1*2+1*2*3+…+1*2*3*…*n, unde n se citeşte de la tastatură. program prob5; var p, s,n,i,j:integer; begin write(‘n=’);readln(n); s:=0; p:=1; for i:=1 to n do begin p:=p*j; s:=s+p; end; write(‘rezultatul este:’,s); readln; end.
Se citeşte un număr natural n. Afişaţi al n-lea termen al şirului lui Fibonacci. Folosiţi o funcţie care întoarce cel de-al n-lea termen al şirului lui Fibonacci. program prob10; type sir=array[1..50]of integer; var i, n,fb:integer; a:sir; begin write(‘n=’);readln(n); for i:=1 to n do if (i=1) or (i=2) then a[i]:=1 else a[i]:=a[i-1]+a[i-2]; write(a[n]); end. In plus, […]
Se citesc de la tastatură 2 numere întregi a şi b, b mai mare ca a. Sa se afiseze intr-un fisier “a.txt” toate numere prime aflate in intervalul aflat intre cele doua numere a si b. program prob16; var f:text; x,d,a,b:integer; prim:boolean; begin assign(f,’a.txt’); rewrite(f); write(‘a=’);read(a); write(‘b=’);read(b); for x:=a to b do begin prim:= true; […]
Să se afişeze în fişierul “tri1.txt” triunghiul de numere: n n-1 n-2…3 2 1 …………… 3 2 1 2 1 1 program prob21; var f:text; i,j,n:integer; begin write(‘n=’); readln(n); assign(f,’tri1.txt’); rewrite(f); for i:=n downto 1 do begin for j:=i downto 1 do write(f,j:4); writeln; end; close(f); end. unde n este un număr natural citit de […]
Se citesc de la tastatură 2 numere întregi a şi b, a mai mic ca b. Afişaţi numărul care are suma cifrelor maximă. Pentru aflarea sumei cifrelor unui număr se va folosi o funcţie care are ca parametru un număr întreg şi returneaza suma cifrelor lui. program prob17; var a,b:integer; function suma(x:integer):integer; var aux,c,s:integer; begin […]
5. Creaţi fişierul “trei.out” care să conţină pe prima linie toate numerele de trei cifre divizibile cu suma cifrelor lor. program prob20; var f:text; s,a,i,c,n:integer; begin assign(f,’trei.out’); rewrite(f); n:=999; for i:=100 to n do begin a:=i; s:=0; repeat c:=a mod 10; s:=s+c; a:=a div 10; until a=0; if i mod s=0 then write(f,i,’ ‘); end; […]