Напишите программу поиска суммы положительных нечетных чисел, меньших 100 и некратных 3. ПОЖАЛУЙСТААААААААА
Напишите программу поиска суммы положительных нечетных чисел, меньших 100 и некратных 3. ПОЖАЛУЙСТААААААААА
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
begin
Println(Range(1,99).Where(n->(Odd(n) and (n mod 3<>0))).Sum)
end.
Результат выполнения программы:
1633
Не нашли ответ?
Похожие вопросы