Нужна программа на pascal. через рекурсию. даны натуральные числа a и b. определить, могут ли эти числа быть соседними членами последовательности фибоначчи.

// pascalabc.net 3.0, сборка 1088 function fib(n: integer): longint; begin   if n< 3 then fib: =1 else fib: =fib(n-2)+fib(n-1) end; var   a,b,f,mn: longint;   i: integer; begin   write('введите а и b: '); read(a,b);   if a< b then mn: =a else mn: =b;   i: =1;   repeat       f: =fib(i); inc(i);   until f> =mn;   if f=mn then begin       if a=mn then mn: =b else mn: =a;       if fib(i)=mn then writeln('соседние числа фибоначчи')       else writeln('меньшее - число фибоначчи, большее - не его сосед')       end   else writeln('меньшее - не число фибоначчи, работа закончена') end. тестовые решения: введите а и b: 610 987 соседние числа фибоначчи введите а и b: 500 250 меньшее - не число фибоначчи, работа закончена введите а и b: 610 830 меньшее - число фибоначчи, большее - не его сосед

Наливаешь в 3-х литровую, переливаешь в 5, опять в 3-литровую, и опять в 5-ти, в трех литровой остается 1 литр. из пятилитровой выливаешь в 8-литровую назад, из 3- литровой переливаешь оставшийся литр в 5-литровую и еще раз полную трех литровую, у тебя в 8-литровой останется 4 литра и в 5-литровой тоже

первую фигуру мы можем раскрасить в 6 цветов, вторую - в 5, третью- в 4, и т.д. а первую - в 3 цвета

6*5*4*3=360

ответ 360 способов