Дана матрица А(M,N) {варианты 1-4, 7-15 } A(N,N) {варианты 5,6)

[Esmadjin]

Написать программу на pascalABC
Дана матрица А(M,N). Составить вектор из номеров столбцов матрицы, где есть хотя бы одно число Фибоначчи.

[digitalis]

Напряг телепатор: нет, варианты не 5,6 а 7.5 и 9 !
Ну до чего ленивый стьюдент пошёл: надо придти к нему домой, найти методичку, в которой эти варианты 5,6, решить задачки и полы вымыть заодно.

[Esmadjin]

Сори всё случайно скопировала, условия там написано полностью, ни к кому домой идти не надо)

[digitalis]

Ну хорошо, а то я уж подумал Жаль, на абеце я не копенгаген, а то накропал бы.
А может, на КОБОЛе или ЛИСП ?

[Arigato]

Сообщение от digitalis

Жаль, на абеце я не копенгаген, а то накропал бы.

Пишите на обычном Pascal, 90% что на ABC.NET будет работать.

[digitalis]

Вот функция, определяющая, является ли аргумент Фибоначкиным. Не знаю, как на АБЦ, на нормальном Паскале фурчит.

function Fibo(arg:integer) : Boolean ;
var  f1,f2,sum: integer ; F_tmp: Boolean ;
begin
   F_tmp :=  (arg=1) or (arg=2) ;
   if not F_tmp then
      begin
         f1 := 1 ; sum := 2 ;
         while sum < arg do
           begin
               f2 := sum ;
               sum := sum + f1 ;
               f1 := f2 ;
               F_tmp := (arg = sum) ;
               if F_tmp then Break
            end;
      end;
     Fibo := F_tmp
end;

А уж пробежаться этой функцией по матрице может даже енот.
Не проверял, но на взгляд - вроде то. Попью кофию - проверю. Проверил - работает.
Что-то заразил меня newerow1989 сочувствием к лентяйкиным задачкам