Предмет: Информатика,
автор: qwwezz
найдите произведение чётную чисел от 16. пока чисел не станет 10.
языком паскаля пожалуйста
Ответы
Автор ответа:
0
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
Println(Range(16,34,2).Aggregate(biginteger(1),(a,b)->a*b));
end.
Результат:
72266652057600
//Версия 3.3, сборка 1611 (06.01.2018)
begin
Println(Range(16,34,2).Aggregate(biginteger(1),(a,b)->a*b));
end.
Результат:
72266652057600
Похожие вопросы
Предмет: Математика,
автор: tubelol479
Предмет: Литература,
автор: karinabel0
Предмет: Українська мова,
автор: bdumencuk
Предмет: Математика,
автор: rkarmakov
Предмет: Биология,
автор: doter228322