Евтихиевич
6 год назад
Найти сумму целых положительных чисел, больших 20,меньших 120 и кратных 9 и не заканчивающих на 5
ОТВЕТЫ
Азарьевич
Jul 22, 2019
// PascalABC.NET 3.2, сборка 1341 от 20.11.2016
begin
Writeln(Range(27,119,9).Where(x-gt;x mod 10lt;gt;5).Sum)
end.
Результат
747
begin
Writeln(Range(27,119,9).Where(x-gt;x mod 10lt;gt;5).Sum)
end.
Результат
747
147
Смежные вопросы:
