profile
Опубликовано 5 лет назад по предмету Информатика от урочек

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

  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.

Самые новые вопросы