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

Ответы 1

  • 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 цифр приведено во вложении. В соответствии с ним верные цифры в результатах подчеркнуты.
    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years