Найдите десятичные представления чисел, записанных в обратном коде: а. 1 0101011

Сначала найдём количество программ из 1 в 7, затем из 7 в 13, после чего их перемножим. из 1 в 7 начинаем с числа 5, т.к. это наименьшее число, к которому можно применить обе команды. в скобках будем писать количество программ. (1)6< -5-> 7(1) то есть из числа 5 можно получить числа 6 и 7. рассмотрим число 4 (2)5< -4-> 6(1)из числа 5 две программы, это указано в скобках. общее количество программ из числа 4 - три. рассмотрим таким способом все остальные числа до 1. (3)4< -3-> 5(2) - всего 5 программ (5)3< -2-> 4(3) - всего 8 программ (8)2< -1-> 3(5) - всего 13 программ. найдем количество программ из 7 в 13. начнем с числа 11, т.к. это наименьшее число, к которому можно применить 2 команды (1)12< -11-> 13(1) - 2 программы(2)11< -10-> 12(1)   - 3 программы (3)10< -9-> 11(2)   - 5 программ (5)9< -8-> 10(3)    - 8 программ (8)8< -7-> 9(5)    - 13 программ из 1 в 7 существует  13 программ, из 7 в 13 тоже 13 программ. общее количество программ равно 13*13 =  169

Если  элемент стоит выше  главной диагонали, то его номер столбца больше, чем номер строки. программа  будет  такая: program  matrix77 var  a:   array  [1..7][1..7]  of  real; // объявляем переменные var  i,  j: integer begin crt; for  i: =  1 to 7 do begin for j: =1 1  to 7 do read (a[i][j]); // вводим начальный массив readln; end; for  i: =  1 to 7 do begin                                         // проверяем, что элемент выше диагонали for j: =1 1 to 7 do if  j  >   i  then  a[i][j]: =0; // обнуляем его end; for  i: =  1 to 7 do begin for j: =1 1 to 7 do write (a[i][j]); // выводим конечный массив writeln; end; end.