• Помогите, пожалуйста, буду очень благодарна ♥️ (pascal)

    question img

Ответы 1

  • // PascalABC.NET 3.2, сборка 1379 от 21.01.2017// Внимание! Если программа не работает, обновите версию!begin  var eps:=ReadReal('eps =');  var a:=0.5;  var an:=0.5*Cos(a);  Print(a);  while Abs(a-an)>=eps do begin    (a,an):=(an,0.5*Cos(an));    Print(a)    end;  Writelnend.Примерeps = 1e-80.5 0.438791280945186 0.45263292166021 0.44964937621366 0.45029977813145 0.450158334369681 0.450189110536143 0.450182414843278 0.450183871601057 0.450183554661232 0.450183623616395 0.450183608614136
  • Добавить свой ответ

Войти через Google

или

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

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

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