Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.