Question

Mă poate ajută vă rog cineva cu acest program în pascal?​

Answer 1

Răspuns:

program suma_produs;

var

   a, n : integer;

   suma, produs: real;

   

begin

   writeln ('n = ');

   read (n);

   

   suma := 0;

   produs := 1;

   

   for a := 1 to n do

   begin

       suma := suma + 1/a;

       produs := produs * 1/a;

   end;

   writeln('Suma este ', suma);

   writeln('Produsul este ', produs);

end.

Explicație: