• Помогите! Паскаль (нужно написать программу)
    Найдите сумму кубов двухзначных чисел, у которых первая цифра четная, а вторая равна 1.

Ответы 2

  • Еще так можно было написать короче: Write(Range(2,8,2).Select(n->power(10*n+1,3)).Sum)
    • Автор:

      peep96oz
    • 6 лет назад
    • 0
  • // PascalABC.NET 3.2, сборка 1387 от 20.02.2017// Внимание! Если программа не работает, обновите версию!begin  Write(Range(2,8,2).Select(n->sqr(10*n+1)*(10*n+1)).Sum)end.Результат836604
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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