Амос
5 год назад
19 б!!! СРОЧНО!!!напишите, пожалуйста, программу в паскале!!! Вычислить р=а1*а2*а3*...*an, где аn= 2n-1/2^n (функция)часть программыfor i:=1 to n doa:=(2*i-1)/ f(2,i)p:=p*a;ПОЖАЛУЙСТА, 10 КЛАСС
ОТВЕТЫ
Heidrich Andrea
Oct 24, 2020
begin
var n:=ReadInteger('n=');
var (p,z):=(1.0,1.0);
for var i:=1 to n do begin
z*=2;
p*=(2*i-1)/z
end;
Writeln('P = ',p)
end.
n=10
P = 1.81723823489133E-08
505
Смежные вопросы:
