Question

Последовательность Фибоначчи образуется так: 1 и 2 члены последовательности равны 1 каждый следующий равен сумме двух предыдущих. Дано нат число n больше или равно 3Верно ли, что сумма первых n членов есть чётное число?!

Answer 1

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  if (SeqGen(ReadInteger('n='),1,1,(i,j)->(i+j)).Sum).IsEven then
    Writeln('Cумма первых членов есть чётное число')
  else Writeln('Cумма первых членов есть нечётное число')
end.

Примеры
n= 7
Cумма первых членов есть нечётное число

n= 11
Cумма первых членов есть чётное число