Продолжите числовые последовательности. 1) 0, 1, 1, 2, 3, 5, 8, … а) 32 2) 1, 2, 2, 4, 8, … b) 49 3) 1, 4, 9, 25, 36, … c) 125 4) 0, 3, 8, 15, 24, … d) 13 5) 1, 8, 27, 64, … e) 35

1) первая последовательность- числа фиббоначи, ответ d) 13 2) вторая последовательность - умножаем на предыдущий, ответ а) 32 3) третья последовательность - квадраты целых чисел, ответ в) 49 4) от квадрата числа вычли единичку, ответ е)35 5) а это кубы, поэтому оставшийся у нас ответ: с) 125

Program q;       var a: array[1..7,1..7] of integer; min7,sum1,odd,i,k: integer; avg5: real; begin;       randomize;       for i: =1 to 7 do begin;             for k: =1 to 7 do begin;                   a[i,k]: =random(-10,10);                   if a[i,k] mod 2 = 1 then odd+=1;             end;       end;       min7: =a[1,7];       for i: =1 to 7 do if a[7,i]< min7 then min7: =a[i,7];       for i: =1 to 7 do sum1+=a[i,1];       for i: =1 to 7 do avg5+=a[5,i];       avg5/=7;       for i: =1 to 7 do a[1,i]: =1;       write('минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd); end.

Для перевода числа из десятичной системы счисления в двоичную нужно делить это число на 2 до тех пор, пока не получим ноль, и остатки выписывать. делить нужно нацело, то есть дробной части быть не должно. 9 / 2 = 4, остаток 1 4 / 2 = 2, остаток 0 2 / 2 = 1, остаток 0 1 / 2 = 0, остаток 1 теперь записываем остатки снизу вверх (хотя тут не важно): 1001 9(10) = 1001(2). второй способ: 9 = 8 + 1 = 2^3 + 2^0 число 2 в какой-либо степени в системе счисления с основанием 2 представляет собой единицу, после которой идут нули, количество которых равно этой степени: 2^3 = 1000(2) 2^1 = 1(2) 1000(2) + 1(2) = 1001(2)