Действия: Создание новой призентации изменение вида фона показ презентации на экране Выполняемая команда

256

326

Посмотреть ответы 1

Ответы на вопрос:

tatyanamazur90

Информатика

4,4(55 оценок)

// 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 меньшее - число фибоначчи, большее - не его сосед