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

Question

Емельян

25 октября, 01:34

+1

Ответы (2)

Знаете ответ на вопрос?

Аннета · Answer 1

uses Crt;

var i, n : integer; p:real;

begin

p:=1;

readln (n) ;

for i:=1 to n do

p:=p * (1/i) ;

writeln (p) ;

readln

end.

Доброслава · Answer 2

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.

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