A2=10111=(1*2^4)+(0*2^3)+(1*2^2)+(1*2^1)+(1*2^0)=16+0+4+2+1=23 в десятичной; A8=447=(4*8^2)+(4*8^1)+(7*8^0)=256+32+7=295 в десятичной; А16=45A=(4*16^2)+(5*16^1)+(10*16^0)=256*4+16*5+10=1024+80+10=1114.
Составим уравнение Воспользуемся расширенной записью числа 87=an²+bn+2 → an²+bn-85=0 Известно, что если многочлен с целочисленными коэффициентами имеет хотя бы один вещественный корень, то он находится среди делителей свободного члена. Нас интересуют только натуральные делители, большие 2, поскольку n - основание системы счисления и в этой системе имеется цифра 2. 85 = 5 × 17. Число 17 не подходит, потому что 17>10 и двухзначное десятичное число в системе счисления с основанием, большим 10, не может иметь в записи больше двух знаков. Следовательно, n=5.
Для проверки переводим 87 в систему счисления по основанию 5. 87 / 5 = 17, остаток 2 17 / 5 = 3, остаток 2 3 / 5 = 0, остаток 3. Выписываем остатки в обратном порядке: 322 87₁₀ = 322₅ - в числе три разряда и оно оканчивается двойкой.
1) var A, B: array[1..25] of integer; i, x: integer; begin writeln('введите элементы массива A: '); for i := 1 to 25 do begin read(A[i]); if A[i] mod 3 = 0 then begin x := x + 1; B[x] := A[i]; end; end; write('элементы массива A, кратные трём: '); for i := 1 to x do begin write(B[i], ' '); end; end.
2) var A, B, C: array[1..10000] of integer; i, n, x: integer; begin writeln('введите размеры обоих массивов: '); read(n); write('введите элементы массива A: '); for i := 1 to n do begin x := x + 1; read(A[i]); end; write('введите элементы массива B: '); for i := 1 to n do begin read(B[i]); end; write('элементы массива C: '); for i := 1 to x do begin C[i] := A[i]; write(C[i], ' '); C[i] := B[i]; write(C[i], ' '); end; end.
![87_{10}=ab2_n, \ a \in [1..n-1], \, b \in[0..n-1], \, a,b \in \mathbb N](/tpl/images/0747/8122/09f7a.png)
A8=447=(4*8^2)+(4*8^1)+(7*8^0)=256+32+7=295 в десятичной;
А16=45A=(4*16^2)+(5*16^1)+(10*16^0)=256*4+16*5+10=1024+80+10=1114.