Question

Даны числа от 1 до N.Найти Р: 1/1*1/2*…*1/N

Answer 1

Program abc;

var P:real; N,x:integer;

begin

Readln(N);

P:=1;

For x:=1 to N do

P:=P* 1/x;

writeln(P);

end.