Програмиа паскаль.Написать программу которая будет считать факториал,а затем сумму факториалов (все в одной программе).Желательно как можно проще составить.
begin var s:BigInteger; for var i:=1 to ReadInteger('Введите количество слагаемых->') do s+=Range(1,ReadInteger('n!=')).Aggregate((r,n)->r*n).Println; Println('Сумма=',s); end.
Answers & Comments
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var s:BigInteger;
for var i:=1 to ReadInteger('Введите количество слагаемых->') do
s+=Range(1,ReadInteger('n!=')).Aggregate((r,n)->r*n).Println;
Println('Сумма=',s);
end.
Пример:
Введите количество слагаемых-> 3
n!= 4
24
n!= 3
6
n!= 5
120
Сумма= 150