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
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.