Ответы и объяснения

2013-11-22T07:12:17+00:00
var
n,P: integer;
Z: real;
begin
Z:=1;
for n:= 2 to 8 do 
 Z:=Z*((n+1)/(n+2));
write('Z = ',Z);
end. 
Суть алгоритма: вычислить (2+1)/(2+2)*(3+1)/(3+2) ... и так далее, пока n не дойдет до 8. Z
Z сохраняет в себе предыдущее значение, и умножает новое на старое.