Напишите программу вычисления выражения . Здесь — факториал числа n. . Используйте функцию вычисления факториала.
По определению факториала в условии функция должна перемножить целые числа от
var n, i: integer; s: int ;
function fact(k: integer): int ;
var j: integer; p: int ;
begin
p := ;
for j := to k do p := p * j;
fact := p
end;
begin
readln(n);
s := ;
for i := to n do s := s + fact(i);
writeln(s)
end.
В fact начальное произведение равно
Программа приведена в решении; при n =
