Программы паскаль! 1)Найдите произведение чисел, кратных 7, от 1 до 70 2)Найдите количество количество нечётных чисел от 0 до 1000

Программы паскаль! 1)Найдите произведение чисел, кратных 7, от 1 до 70 2)Найдите количество количество нечётных чисел от 0 до 1000
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.2, сборка 1336 от 14.11.2016 begin   Writeln(Range(7,70,7).Aggregate(biginteger(1),(i,j)->i*j)) end. Результат 1025046183571200 // PascalABC.NET 3.2, сборка 1336 от 14.11.2016 begin   Writeln(Range(1,1000,2).Count) end. Результат 500
Не нашли ответ?
Ответить на вопрос
Похожие вопросы