Решите задачу 3(Паскаль 7 класс) пожалуйста.Только посторайтесь не сложным путем делать,а...

Question

Решите задачу 3(Паскаль 7 класс) пожалуйста.Только посторайтесь не сложным путем делать,а то учитель не поверит.))ДАЮ 32 БАЛА

---

Answer 1

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

Пример:
n = 4
p = 0.013815873015873

Comments

Пожалуйста