Найти сумму ряда из n-членов .S=1 + 1/2 + 1/1*2*3 + 1/n!.Использовать процедуру или функцию.срочно СРОЧНО
{ нахождение суммы ряда }
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
