дано целое число...

Тема в разделе "Информатика", создана пользователем Razoriz)), 1 фев 2010.

  1. Razoriz))

    Razoriz)) New Member

    дано целое число N. вычислить 1/1!+1/2!+1/3!+...+1/N!
     
    Razoriz)), 1 фев 2010
    #1
  2. vodila11

    vodila11 New Member

    На Паскале:
     
    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.
     
    vodila11, 1 фев 2010
    #2

Поделиться этой страницей

Наша группа