Вопрос пользователя:
дано целое число N. вычислить 1/1!+1/2!+1/3!+…+1/N!
Илюха отвечает:
На Паскале:
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.