Вычислить через for и repeat в паскале
(1+sin⁡0,1 )(1+sin⁡0,2 )…(1+sin⁡10)

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018Внимание! Если программа не работает, обновите версию!Цикл forbegin  var p:=1.0;  for var i:=1 to 100 do p*=(1+Sin(i/10));  Writeln(p)end.Результат1.72984094681772E-14Цикл repeatbegin  var (p,i):=(1.0,0.1);  repeat    p*=(1+Sin(i));    i+=0.1  until i>10;  Writeln(p)end.Результат1.72984094681773E-14Контрольное решение с точностью 20 цифр приведено во вложении. В соответствии с ним верные цифры в результатах подчеркнуты.