Narrow Default Wide
Blue Colour Green Colour Orange Colour Red Colour


356 средняя
общеобразовательная школа

Сумма чётн 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.