profile
Опубликовано 5 лет назад по предмету Информатика от B152

Пожалуйста помогите

  1. Ответ
    Ответ дан Аккаунт удален
    PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
    Внимание! Если программа не работает, обновите версию!

    begin
      SeqWhile(-3.0,x->x+0.5,x->x<=3.0).ForEach(x->
          Writeln(x:4:1,(x<0?3*x**3+5:2*Sqrt(x)+1):15:8))
    end.
Самые новые вопросы