под а) 4 под б)1 а в)6 ...............................
I,k:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 13 do
begin
a[i]:=random(41)+10;
write(a[i],' ');
end;
writeln;
writeln('Массив после удаления 10-го элемента:');
for i:=10 to 12 do
a[i]:=a[i+1];
for i:=1 to 12 do
write(a[i],' ');
writeln;
writeln('Массив после удаления минимального элемента: ');
k:=1;
for i:=1 to 12 do
if a[i]<a[k] then k:=i;
for i:=k to 11 do
a[i]:=a[i+1];
for i:=1 to 11 do
write(a[i],' ');
writeln;
end.
var
a:array [1..7] of char;
i,k:integer;
begin
writeln('Введите массив:');
for i:=1 to 7 do
readln(a[i]);
writeln('Массив');
for i:=1 to 7 do
write(a[i],' ');
writeln;
writeln('Массив после удаления максимального элемента: ');
k:=1;
for i:=1 to 7 do
if a[i]>a[k] then k:=i;
for i:=k to 6 do
a[i]:=a[i+1];
for i:=1 to 11 do
write(a[i],' ');
writeln;
end.
Сначала переведём в десятичную систему счисления, а затем в остальные из неё.
В качестве цифр шестнадцатеричной системы счисления используются цифры от 0 до 9 и латинские буквы от A до F. Буквы A = 10, B = 11, C = 12,
D = 13, E = 14, F = 15.
B25₁₆<span> = 11*16</span>²+2*16¹+5*16° = 2816+32+5 = 2853₁₀
2853/2 = 1426 (целое частное) + (1) - остаток
1426/2 = 713 + (0)
713/2 = 356 + (1)
356/2 = 178 + (0)
178/2 = 89 + (0)
89/2 = 44 + (1)
44/2 = 22 + (0)
22/2 = 11 + (0)
11/2= 5 + (1)
5/2 = 2 + (1)
2/2 = 1 + (0)
1
Поднимаемся снизу вверх записывая слева направо.
B25₁₆ = 101100100101₂
2853/8 = 356 + (5)
356/8 = 44 + (4)
44/8 = 5 + (4)
5
B25₁₆ = 5445₈
C3₁₆<span> = 12*16</span>¹+3*16⁰ = 192+3 = 195₁₀
195/2 = 97 + (1)
97/2 = 48 + (1)
48/2 = 24 + (0)
24/2 = 12 + (0)
12/2 = 6 + (0)
6/2 = 3 + (0)
3/2 = 1 + (1)
1
C3₁₆ = 11000011₂
195/8 = 24 + (3)
24/8 = 3 + (0)
3
C3₁₆ = 303₈
