Главная страница

Сумма чётн Fibonachi_1

{
Каждый следующий элемент ряда Фибоначчи получается
при сложении двух предыдущих. Начиная с 1 и 2, 
первые 10 элементов будут:

1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ...
Найдите сумму всех чётных элементов ряда Фибоначчи,

 которые не превышают четыре миллиона.

}
program Fibonachi;

var
  Sum: longint;
  f, f1, f2: integer;

begin
  f1 := 1;f2 := 1;
  f := 0;
  while F < 4000000 do
  begin
    F := f1 + f2;
    if f mod 2 = 0 then Sum := Sum + f;
    f1 := f2;f2 := f;
  end;
  Write(Sum);
end.