Знайти суму всіх парних чисел від 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.
Не нашли ответ?
Похожие вопросы