Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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