Переведите из 2 сист.счисл. в 16. 100111

100111 разбиваем на тетрады (по 4 цифры), получаем0010.0111считаем по схеме1 1 1 1  8 4 2 10010(2)=2(16)0111(2)=7(16)100111(2)=27(16)

Program project2; {$apptype console} uses  sysutils,windows; constnmin=1; nmax=20; typemas=array[nmin..nmax] of integer; vara: mas; i: integer; s: real; begin  setconsolecp(1251);   setconsoleoutputcp(1251);   randomize; for i: =1 to   nmax doa[i]: =random(1000)-500; writeln ('ìàññèâ: ');   for i: =1 to   nmax do  beginwrite (''); write   (a[i]: 2); writeln (''); end; s: =0; for i: =1 to nmax dobeginif a[i]< 0 thens: =s+a[i]; end; writeln ('ñóììà îòðèöàòåëüíûõ ýëåìåíòîâ ìàññèâà = ',s: 2: 2); readln; end.

Type num=1..999; var x: num; k,y: integer; begin   write('x=');   readln(x);   y: =x;   k: =0;   while y< > 0 do     begin     y: =y div 10;     k: =k+1;     end;   if (x mod 2)=0 then     write('четное ')   else     write('нечетное ');   if k=1 then write('однозначное ')   else     if k=2 then write ('двухзначное ')     else       write('трехзначное ');   writeln('число'); end.