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 că ați accesat site-ul nostru dedicat Informatică. Sperăm că informațiile furnizate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați la favorite!
