Question

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

Answer 1

uses crt;
var S:real; N,x:integer;
begin
Write('Write nî');
Readln(N);
if (n mod 2 <> 0) then
begin
S:=0;
For x:=1 to N do
S:=S* (1/x);
writeln(s);
end
else
writeln('error N  chetnoe!!');
end.

Answer 2

Program abc;

var P:real; N,x:integer;

begin

Write('Введите нечетное число');

Readln(N);

P:=1;

For x:=1 to N do

begin

P:=P*(1/x);

x:=x+2;

end;

writeln(P);

end.