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

вычислите S???
S=1/1!+1/2!+1/3!+1/n!
напишите пожалуйста программу очень прошу!!!!!!?

  1. Ответ
    Ответ дан fikort
    var
    s:real;
    i,n,f:integer;
    begin
    readln(n);
    s:=0;
    f:=1;
    for i:=1 to n do
    f:=f*i;
    for i:=1 to f do
    s:=s+(1/i);
    writeln(s);end.
    1. Ответ
      Ответ дан fikort
      не заметил
    2. Ответ
      Ответ дан fikort
      сек
    3. Ответ
      Ответ дан fikort
      исправил
    4. Ответ
      Ответ дан alamar
      не то
    5. Ответ
      Ответ дан alamar
      она неверно работает
  2. Ответ
    Ответ дан alamar
    vars:double;
    n,i:integer;
    f:longint;
    begin
    f:=1;
    writeln('Vvedite n');
    readln(n);
    for i:=1 to n do
    begin
    f:=f*i;
    s:=s+(1/f);
    end;
    writeln('S = ',s);
    end.
    1. Ответ
      Ответ дан holmak
      спасибо большое очень выручили!!!!
Самые новые вопросы