Question

среди чисел последовательности 1 ,2,3,5,8,13..(каждый следующий член последовательности равен сумме двух предыдущих ) найдите количество чисел до первого 6-значного Pascal abc

Answer 1

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

begin
    f2 := 1;
    f1 := 2;
    n := 2;
   
    repeat
        f := f1 + f2;
        n := n + 1;
        writeln(n,' - ',f);
        f2 := f1;
        f1 := f;
    until f >= 1000000;
   
    writeln(n - 1);
end.