Uses crt; var a:array[1..10]of integer; b:array[1..10]of integer; max,i,c,k:integer; beginfor i:=1 to 10 do a[i]:=random(20)-10; for i:=1 to 10 do if abs(a[i])>abs(max) then begin max:=a[i]; c:=i; end; for i:=1 to 10 do if (a[i]=max)and(i<>c) then begin b[i]:=i; k:=k+1; end; writeln('максимальный элемент по модулю=(',max,') номер этого элемента=(',c,')'); write('номера таких же элементов: '); for i:=1 to 10 do if b[i]>0 thenwrite(b[i],' '); writeln('их кол-во:(',k,')'); writeln; for i:=1 to 10 do write(a[i],' ') end.
В двоичной системе: 1243(10)=2^10+2^7+2^6+2^4+2^3+2^1+1 = 1024+128+64+16+8+2+1 = 1243(10) =10011011011(2) В восьмиричной системе: разбиваете двоичное представление на группы по 3 бита справа налево 011 = 3 011 = 3 011 = 3 10 = 2 Тогда в восьмиричной системе: 2333(8) = 2*8^3+3*8^2+3*8^1+3 = 1024+192+24+3=1243(10) В шестнадцатиричной системе: разбиваете двоичное представление на группы по 4 бита справа налево 1011 = B = 11(10) 1101 = D(16) = 13(10) 100 = 4 Тогда в шестнадцатиричной системе 4DB(16) = 4*16^2+13*16^1+11 =1024+208+11=1243(10)
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку