Вычислить произведение первых n сомножителей 1/2*3/4*5/6*...

[shady]

Дано натуральное число n. Вычислить произведение первых n сомножителей $\frac12 \cdot \frac34 \cdot \frac56...;$
Использовать оператор цикла с параметром. Массивы не использовать.

Используется синтаксис Pascal

var ch,n,i:integer; {pr-произведение, ch-числитель}
     pr:real;
 
BEGIN
    readln(n);
    pr:=1;
    ch:=1;
    for i:=1 to n do 
       Begin
          pr:=pr*(ch/(2*i));
          ch=ch+2;
       End;
END.
 

Не совсем уверен, что это правильное решение.

[venco]

А почему не уверены?
Не хватает только вывода результата.

[shady]

venco в сообщении #540201 писал(а):

А почему не уверены?
Не хватает только вывода результата.

Потому что

Используется синтаксис Pascal

var n,i:integer;
    pr:real;
BEGIN
readln(n);
pr:=1;
for i:=1 to n do
 pr:=pr*((i*2-1)/(i*2));
writeln(pr);{путь будет вывод}
readln;
END.
 

[venco]

shady в сообщении #540236 писал(а):

venco в сообщении #540201 писал(а):

А почему не уверены?
Не хватает только вывода результата.

Потому что ...

Так тоже можно.

[arseniiv]

(Мимо пробегал.)

Отступы и пробелы, мягко говоря, ужасны. Выделение begin и end из остальных ключевых слов тоже странно.