var n,x:integer; s,p:real; begin writeln('Introduceti numarul'); read(n); s:=0; p:=1; for x:=1 to n do begin s += 1/x; p *= 1/x; end; writeln('Suma fractiilor este ',s:0:3,' si produsul fractiilor ',p:0:3); end.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!
