Question

Найти сумму ряда из n-членов .S=1 + 1/2 + 1/1*2*3 + 1/n!.Использовать процедуру или функцию.срочно СРОЧНО

Answer 1

{ нахождение суммы ряда }
var n: integer;
{  процедура - функция}
function sumr(m: integer): real;
var i: integer;
    s,prom: real;
begin
   s:=0;
   prom:=1;
   for i:=1 to m do
   begin
     s:=s+(prom/i);
     prom:=prom/i;
   end;
   Result:=s;
end;{ конец процедуры }
{ основная программа }
begin
  write('задайте n:  ');
  readln(n);
  writeln('сумма ряда равна:  ',sumr(n):10:5);
end.