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

katyastulova23 katyastulova23    3   24.08.2019 05:00    0

Ответы
veraveta veraveta  05.10.2020 16:01
// 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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика