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

Question

Информатика

Зосима

9 сентября, 05:40

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

+2

Ответы (1)

Знаете ответ на вопрос?

Виктуся · 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.