СРОЧНО!!! Помогите пожалуйста с турбо паскаль, задание ** тему циклы....Как мне препод...

Question

СРОЧНО!!! Помогите пожалуйста с турбо паскаль, задание на тему циклы....
Как мне препод объясняла там должно быть for i:=1 to N do begin
P:P*(2*i)/(2*i+1)
end;
Вот часть которую нужно как то применить к этому заданию...
Как будет выглядеть весь код?)))

---

Comments

Проверяй быстрее, а то я спать ухожу))

---

Написала) Решает, а насчет правильности не знаю) Посмотрите у меня последнюю добавленную задачу, так и должно быть?)) Там скрин то что получилось...

Answer 1

Program PR;
var
  i,n:integer;
  p:real;
begin
write('Введите N: ');
readln(n);
p:=1;
for i:=1 to n do
  p:=p*(2*i)/(2*i+1);
writeln('P=',p);
readln;
end.