Question

Utilizind instructiunea FOR ,scrieti un program care calculeaza pentru primii n termeni:

suma s=1/1 +1/2 +1/3+...1/n

produsul p=1/1 * 1/2 * 1/3*...1/n.

Answer 1

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.