Даю 40 баллов(в тот раз не туда нажал) Помогите пожалуйста с номером 4(7 класс...

Question

Даю 40 баллов(в тот раз не туда нажал) Помогите пожалуйста с номером 4(7 класс Паскаль),желательно не очень сложно решить,а то не поверят

---

Answer 1

Var i,n:integer; a,p:real;
begin
write('n = '); readln(n);
p:=32;
for i:=1 to n-1 do 
 begin
 a:=(2+2*i+1)/(2*i+1);
 p:=p*a;
 end;
writeln('p = ',p);
end.

Пример:
n = 5
p = 1.17333333333333E+002

Answer 2

Решение задачи в приложенном файле

Comments

а там ведь когда вводишь 1 должно быть 32,а тут нет

---

исправьте пожалуйста