Составила следующую программу:
Код
var i,s,f:extended;
BEGIN
i:=0;
s:=1;
Repeat
i:=i+0.1;
f:=1+sin(i);
s:=s*f;
Until i>10;
writeln('summa=',s:10:2);
END.
в итоге он мне выводит ноль... при увеличении количества выводимых знаков после запятой выводит summa=0.000000000000017298. Думаю, что таким малым числом можно пренебречь.
И встал вопрос: правильный ли результат я получаю?
