ПОМОГИТЕ написать задачку на паскале

[Юльчик18]

Дано натуральное числа n. Вычислить P=(1-1/2)(1-1/4)(1-1/6)...(1-1/2n)
Вот не могу решить и все и блок -схема тож проблемной оказалась!
ПОМОГИТЕ

[Geg[C/c++]]

Задачка не сложная, но лично я в паскале не бум бум... Обратитесь в отдел "фриланс", там вам помогут за умеренную плату.

[russian-stalker]

Может так:

program Project2;
var
i,n:integer;
p:real;
begin
  readln(n);
  p:=1;
  for i:=2 to 20+n do
  begin
     if i mod 2=0 then
     begin
        p:=p*(1-1/i);
     end;
  end;
  writeln(p);
  readln(i);
end.

[LeBron]

если влоб, то надо примерно так:

var i,n:longint;p:real;
begin
readln(n);
p:=1;
for i:=1 to n do p:=p*(1-1/(2*i)); writeln(p);
end.

Но вот одно "но" - я не вижу ограничений. При маленьком р этот вариант подходит. При сравнительно большом (например, 5000) надо учесть пробелемы с точностью и, в случае необходимости (если надо, к примеру, чтобы была точность до предпоследнего знака типа Real), реализовать все то же с "длинкой" (длинной арифметикой), храня, скажем, 100 цифр после запятой. При еще большем р (скажем, 100000) уже и этот вариант будет думать несколько секунд, как альтернативу можно использовать олимпиадные алгоритмы оптимизации подобных вичислений, что заняло бы строк 100-200 кода

[viktory]

LeBron, это типичная лаба. Лично у нас в университете никаких ограничений не накладывали, что первое врямя меня выводило из себя. И длинная арифметика тут вообще никаким боком не встала, цель - обучить студентов циклам, не более.
Юльчик18, вот блоксхема для проги LeBron
Овал, в нем написано "начало";
паралелипипед, в нем "readln(n)";
прямоугольник, в нем "p:=1";
шестиугольник "i:=1 to n" - это цикл for;
прямоугольник с "p:=p*(1-1/(2*i))" внутри, стрелочка от него идет на шестиугольник-цикл;
по окончании цикла выполняется "writeln(p)", это параллелепипед;
а потом овал, в нем написано "конец".