Найдите основание х системы счсисления, если а) 14(х)=9(10) б) 2002х=130(10)
109
381
Ответы на вопрос:
A) 14(x)=9(10) 14(x)=1*x+4 x+4=9 x=5 б) 2002(x)=130(10) 2002(x)=2*x^3+2 2x^3+2=130 2x^3=128 x^3=64 x=4
Const nm = 100; type mas = array[1..nm] of integer; procedure shell(var a: mas; n: integer); { сортировка методом шелла } var i, j, step, t: integer; begin step : = n div 2; while step > 0 do begin for j : = n - step downto 1 do begin i : = j; while i < = n - step do begin if a[i] > a[i + step] then begin t : = a[i]; a[i] : = a[i + 1]; a[i + 1] : = t end; i : = i + step end end; step : = step div 2 end end; var x: mas; i, n: integer; begin randomize; write('введите число элементов в массиве (1-100): '); readln(n); writeln('исходный массив'); for i : = 1 to n do begin x[i] : = random(101) - 50; write(x[i]: 4) end; shell(x, n); writeln(#13#10, 'отсортированный массив'); for i : = 1 to n do write(x[i]: 4) end. тестовое решение: введите число элементов в массиве (1-100): 20 исходный массив -8 -17 -19 1 -3 23 -33 30 -27 -45 12 26 -24 18 37 8 47 -14 -19 -3 отсортированный массив -45 -33 -27 -24 -19 -19 -17 -14 -8 -3 -3 1 8 12 18 23 26 30 37 47
Популярно: Информатика
-
alyamiller151315.06.2022 00:11
-
ritosha00215.06.2020 09:16
-
Аполлинарияполишка02.01.2023 09:00
-
valkiriyali03.01.2023 05:29
-
tatianani14.09.2020 10:41
-
annaastashova17.01.2023 03:20
-
erfsdgfRyde13.03.2022 12:18
-
Мelissa20531.10.2020 00:59
-
yuliua8804.09.2020 15:44
-
sashenkakoster25.05.2023 18:53