Вводим n и вычисляем с цикла for сумму натуральных логарифмов
var p,i, n: integer; s: real;
readln(n);
p:=1;
for i:=2 to n do
begin
p:=p*i;
end;
s:=ln(p);
writeln(s);
end.
Вводим n и вычисляем с цикла for сумму натуральных логарифмов
var p,i, n: integer; s: real;
readln(n);
p:=1;
for i:=2 to n do
begin
p:=p*i;
end;
s:=ln(p);
writeln(s);
end.