Найти произведение чисел, кратных трем в диапазоне от 30 до 50
Найти произведение чисел, кратных трем в диапазоне от 30 до 50
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.NET 3.1 сборка 1219
begin
var a := Range(30, 50).Where(x -> x mod 3 = 0).Aggregate(1, (s, x)-> s * x);
PrintLn(a);
end.
Не нашли ответ?
Похожие вопросы