Вычислить произведение

[iCaesy]

Задание:
http://s017.radikal.ru/i438/1110/1e/9a86371f05a7.jpg

Код:

program pr;
uses crt;
var a,i:integer;
p:real;
begin clrscr;
p:=1;
writeln('vvesti kol-vo elem');
read(a);
for i:=2 to 100 do
 begin
p:=p*((i+1)/(i+2));
writeln(p:1:2);
end;
end.

В ем ошибка ?

[Abstraction]

Э-э-э... в логике? Ответ 1/34 ~ 0.03, считается без калькулятора.

Если программа его не получает, дело либо в том, что при делении целого на целое считается целое частное (в C++ это так, но вот в Паскале - не уверен, там вроде бы от этого страховка есть). Либо, что вероятнее, дело в том, что операции над числами с плавающей точкой в большинстве случаев выполняются с некоторой погрешностью. Чем больше операций, тем больше погрешность; особенно опасно сложение большого числа с маленьким и перемножение чисел, близких к единице.

[iCaesy]

closed
all is ok ))

[iCaesy]

Abstraction
thx