Знайти суму всіх парних чисел від 1 до n. паскаль

Знайти суму всіх парних чисел від 1 до n. паскаль
Гость
Ответ(ы) на вопрос:
Гость
//PascalABC.NET 3.1 сборка 1200 begin   writeln(range(1, ReadInteger('n =')).Where(x -> x mod 2 = 0).Aggregate((s, x)-> x + s)); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы