Вычислить сумму 1! + 2! + 3! + ... + n! (значение n вводится с клавиатуры; 1 < n ≤ 10).

Решать через While или Repeat

Question

Хариса

30 октября, 08:33

+5

Ответы (1)

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

Рима · Answer 1

Var

i, n, f, s:int64;

begin

read (n) ;

i:=0;

f:=1;

while in do

begin

i:=i+1;

f:=f*i;

s:=s+f;

end;

writeln (s) ;

end.

Вычислить сумму 1! + 2! + 3! + ... + n! (значение n вводится с клавиатуры; 1 < n ≤ 10).Решать через While или Repeat