найдите произведение чётную чисел от 16. пока чисел не станет 10.
языком паскаля пожалуйста
Ответы на вопрос
Ответил Giammy
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
Новые вопросы
География,
2 года назад
Алгебра,
2 года назад
Химия,
8 лет назад
Алгебра,
8 лет назад
Информатика,
9 лет назад