profile

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

Помогите пожалуйста, нужно составить программу в Паскале.
~~~~~~~~~~~~~
Вычислить S=1!+2!+3!+…+n! используя подпрограмму-функцию вычисления факториала.

  1. Ответ
    Ответ дан tumanov2004

    var

    n,x,a,s:longint;

    begin

    read(n);

    a:=1;

    for x:=1 to n do

    begin

    a:=a*x;

    s:=s+a;

    end;

    writeln(a);

    end.

    Программа будет работать для n<=12, если надо больше, то меняйте тип переменных a и s на int64 / uint64

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт