Ввести натуральное число N и вычислить сумму всех чисел Фибоначчи, меньших N....

Question

Ввести натуральное число
N и вычислить сумму всех чисел Фибоначчи, меньших N. Предусмотрите защиту от
ввода отрицательного числа N.

Comments

не напомните, числа Фибоначчи это если сумма квадратов всех цифр равна этому числу?

Answer 1

Var
    f1, f2, max: integer;
    s: longint;

begin
    max := -1;
    while max < 0 do
    begin
        writeln('введите то число до которого выводить числа');
        readln(max);
        if max < 0 then writeln('введено неверное число');
    end;
    
    s := 0;
    f1 := 0;
    f2 := 1;
    while f2 < max do
    begin
        s := s + f2;
        f2 := f2 + f1;
        f1 := f2 - f1;
        writeln(f2);
    end;
    
    writeln('S=', s);
end.