Скласти і реалізувати алгоритм мовою Паскаль, який перевіряє приналежність натурального числа до чисел Фібоначчі, тобто приналежність до ряду чисел, в якому кожне наступне число дорівнює сумі двох попередніх чисел(наприклад:1+1=2; 1+2=3; 2+3=5; 3+5=8 і т.д.). До ряду чисел Фібоначчі належать: 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946, 17711, 28657, 46368, 75025, 121393, 196418, 317811, 514229, 832040,
Програма мовою Pascal.
Объяснение:
var n, t, f: longint;
begin
readln(n);
t := 0;
f := 1;
repeat
f := f + t;
t := f - t
until f >= n;
writeln(f = n);
readln
end.