Question

дано целое число N. вычислить 1/1!+1/2!+1/3!+...+1/N!

Answer 1

На Паскале:

 

program MyProgram;
var n,i,fact: integer; sum: real;
begin
sum:=0;
fact:=1;
writeln('Введите число N.');
readln(n);
for i:=1 to n do
begin
fact:=fact*i;
sum:=sum+1/fact;
end;
writeln('Сумма 1/1!+1/2!+1/3!+...+1/N = ',sum);
end.