Question

Сделайте программу Pascal, которая для натурального числа, считываемого с клавиатуры, покажет нам результат вычисления чисел находящихся до заданного числа
a) сумма чётных чисел
b) сумма нечётных чисел
c)сумма чётных и нечётных

Answer 1

Ответ

PascalABC.NET

begin

 var n := ReadInteger();

 var seq := Range(0, n).ToArray;

 Println(seq.Where(x -> x mod 2 = 0).Sum);

 Println(seq.Where(x -> x mod 2 <> 0).Sum);

 Println(seq.Sum);

end.