Ипишите 1 : перевидите числа в десятичную систему счисления а) 10101011 в степени 2 б) 1011, 101 в степени 2 2 : переведите число 1011001011110010 в степени 2 а) в восьмеричную систему счисления б) в 16-ричную систему счисления 3 : выполнить действия а) 10110, 11 в степени 2 + 1101, 01 в степени 2 б) 101 в степени 2 умножить 111 в степени 2!

1.а) 10101011 = 27*1 + 26*0 + 25*1 + 24*0 + 23*1 + 22*0 + 21*1 + 20*1 = 128 + 0 + 32 + 0 + 8 + 0 + 2 + 1 = 171

б)для перевода целой части необходимо умножить разряд числа на соответствующую ему степень разряда.1011 = 23*1 + 22*0 + 21*1 + 20*1 = 8 + 0 + 2 + 1 = 11

для перевода дробной части необходимо разделить разряд числа на соответствующую ему степень разряда

101 = 2-1*1 + 2-2*0 + 2-3*1 + 2-4* = 0.625

Uses crt; type uchenik=record               fam: string[20];               im: string[20];               kls: string[3];               end; var a: array[1..100] of uchenik;     n,i,j,k: byte; begin clrscr; writeln('сколько учеников n='); readln(n); writeln('введите данные о ',n,' учениках: '); for i: =1 to n do   begin   writeln('ученик ',i);   write(' фамилия: '); readln(a[i].fam);   write(' имя: '); readln(a[i].im);   write(' класс ( год+буква, 11а): '); readln(a[i].kls);   end; writeln('однофамильцы в одном классе: '); k: =0; for i: =1 to n-1 do for j: =i+1 to n do if (a[i].fam=a[j].fam)and(a[i].kls=a[j].kls) then   begin     k: =1;   writeln(a[i].kls,'   ',a[i].fam,'   ',a[i].im,'   ',a[j].fam,'   ',a[j].im);   end; if k=0 then write('однофамильцев в одном классе нет! '); readln end.

Sub z() dim a(10) as currency dim i as integer dim min as currency dim s as string s = "курсы покупки в банках: " & chr(13) for i = 1 to 10     a(i) = int(rnd * 1000 + 3000) / 100     s = s & i & ": " & a(i) & " "      if i = 1 then min = a(i)     if a(i) < min then  min = a(i) next i s = s & chr(13) & "меняйте в банке номер:   " for i = 1 to 10   if a(i) = min then s = s & i & "; " next i s = s & chr(13) & "по курсу:   " & min msgbox (s) end sub