Дано натуральное число N. Вычислить: P=2/3*4/5*6/7*…*2*N/(2N+1)
Дано натуральное число N. Вычислить: P=2/3*4/5*6/7*…*2*N/(2N+1)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
var i,n,j,a:integer; p:real; begin writeln ('введите целое число'); readln (n); i:=2; j:=3; p:=1; a:=n; while a<=2*n do begin p:=p*i/j; i:=i+2; j:=j+2; a:=a+2; end; writeln ('произведение=',p); end. |