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; […]
Pentru a modela si manevra informatiile, calculatorului lucreaza cu date. Date – reprezentarea informatiilor in memoria interna(M.I.) Se foloseste sistemul binar cu cifrele 0 si 1. Cantitatea de informatie elementara e numeste BIT { 0,1} Bitii sunt grupati in Byte(octet) = 8 biti – Kilobyte(KB) = 2 la a 10 a = 1024 B – […]
Toata lumea a scris despre browserul lansat de Google. Eu n-am mai scris, m-am multumit sa discut putin cu cativa webmasteri si la atat am ramas. Astazi insa mi l-am instalat si eu ( nu aveam eu chef sa stau dupa count down ) si am incarcat cateva site-uri. Ale mele cel putin, pana acum, […]
Da, am primit din nou o leapsa de la Dalia si trebuie sa ma laud cu telefoanele 🙂 Okay, hai ca incepem. Ultimul telefon achizitionat, este un Nokia 5310 Express Music sursa imagine : tecfre.com E un telefon foarte usor si foarte subtire. Capacitate mare de stocare prin intermediul cardului. E, asa cum ii spune […]