Найти сумму 1!+2!+3!+_+N! (n!=1*2*3*...*n)
Найти сумму 1!+2!+3!+_+N!
(n!=1*2*3*...*n)
Гость
Ответ(ы) на вопрос:
Гость Учитывая, что в условии не обозначены границы N, придется воспользоваться возможностями PascalABC.Net
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var f: BigInteger := 1;
var s: BigInteger := 0;
var n := ReadInteger;
for var i := 1 to n do
begin
f:=1;
for var j := 1 to i do f *= j;
s := s + f;
end;
println('Сумма факториалов ', s);
end.
Тестовое решение
n=100
Сумма факториалов 94269001683709979260859834124473539872070722613982672442938359305624678223479506023400294093599136466986609124347432647622826870038220556442336528920420940313
Не нашли ответ?
Похожие вопросы