Циклы на Паскале.

[vlad1991]

АУУууууууу народ есть кто!?!?!?Давайте обсудим пожалуйста эту тему!

[vlad1991]

Вот она 3!!!В чем ошибка???
program lab38;
var
n,p,m,i:integer;
R:real;
begin
writeln(‘Введите n’);
readln(n);
R:=1;
p:=2;
m:=1;
for i:=1 to n do begin
R:=R*(p/m);
if n mod 2=0 then m:=m+2 else p:=p+2
end;
writeln(‘R’, R);
readln
end.

[puporev]

Немного ты не дожал эту задачку.

uses crt;
var ch,zn,i,n:integer; {ch-числитель, zn - знаменатель}
    Pch,Pzn:extended;{произведения в числителе и знаменателе}
begin
clrscr;
write('n=');
readln(n);
Pch:=1;Pzn:=1;
for i:=1 to n do
  begin
    if i mod 2<>0 then
      begin
       ch:=i+1;
       zn:=i;
     end
    else if i mod 2=0 then
      begin
       ch:=i;
       zn:=i+1;
      end;
    Pch:=pch*ch;
    Pzn:=Pzn*zn;
  end;
write('Proizvedenie=',Pch:0:0,'/',Pzn:0:0,' =',Pch/Pzn:0:4);
readln
end.

[puporev]

Вообще-то я перестарался, выводить в виде дроби наверное не надо, тогда решение попроще.

uses crt;
var ch,zn,i,n:integer;
    R:real;
begin
clrscr;
write('n=');
readln(n);
R:=1;
for i:=1 to n do
  begin
    if i mod 2<>0 then
      begin
       ch:=i+1;
       zn:=i;
     end
    else if i mod 2=0 then
      begin
       ch:=i;
       zn:=i+1;
      end;
    R:=R*ch/zn;
  end;
write('Proizvedenie=',R:0:4);
readln
end.

[dmitriy20104]

Спасибо, у меня такая-же задачка была!