:3 переведите число 721(8) по схеме n(8)-> n(2)-> n(16)

721-> 111010001-> 1d1,из 8 в двоичную и из двоичной в 16

Uses graphabc; begin   {горшок}   setpencolor(clbrown);   setbrushcolor(clbrown);   line(52, 280, 110, 452);   line(110, 452, 196, 452);   line(196, 452, 243, 280);   line(243, 280, 52, 280);   {зальём горшок цветом}   floodfill(120, 400, clbrown);   {стебли}   setpenwidth(5);   setpencolor(clgreen);   line(58, 129, 127, 277);   line(142, 56, 142, 280);   line(229, 123, 164, 278);   {лепестки цветов}   setpencolor(clpurple);   line(44, 101, 29, 70);   line(45, 98, 67, 68);   line(55, 95, 55, 64);   line(55, 95, 74, 73);   line(71, 99, 83, 81);   line(71, 110, 95, 109);   line(73, 116, 92, 123);   line(60, 122, 83, 135);   line(50, 132, 48, 145);   line(49, 132, 33, 143);   line(41, 123, 19, 133);   line(43, 115, 13, 124);   line(44, 109, 14, 108);   line(37, 103, 17, 94);   line(136, 50, 131, 64);   line(135, 46, 117, 67);   line(125, 48, 98, 62);   line(135, 38, 102, 37);   line(130, 30, 103, 22);   line(128, 22, 112, 7);   line(146, 12, 155, -6);   line(158, 14, 166, -7);   line(159, 28, 175, 12);   line(163, 40, 191, 47);   line(158, 47, 172, 58);   line(147, 49, 162, 68);   line(134, 19, 129, 6);   line(218, 91, 210, 78);   line(216, 91, 198, 80);   line(225, 83, 213, 60);   line(243, 88, 240, 62);   line(251, 89, 267, 74);   line(255, 106, 278, 110);   line(245, 116, 264, 132);   line(238, 118, 248, 142);   line(231, 125, 232, 141);   line(219, 112, 197, 129);   line(219, 112, 183, 108);   {середины цветков}   setpencolor(clyellow);   setbrushcolor(clyellow);   circle(53, 116, 16);   circle(142, 37, 17);   circle(231, 103, 20); end.

// pascalabc.net 3.2, сборка 1449 от 23.05.2017 // внимание! если программа не работает, обновите версию! begin   var f: real-> real: =       x-> cos(0.75*power(x,0.25)-0.5*power(x,0.5)+0.25*power(x,0.75));   var a: =matrgen(10,10,(i,j)-> f(5+(10*i+j)*0.75));   writeln('*** исходный массив ***'); a.println(7,3); writeln(70*'-');   var fo: =openwrite('output.txt');   writeln(fo,'*** исходный массив ***');   for var i: =0 to 9 do begin       for var j: =0 to 9 do write(fo,a[i,j]: 7: 3);       writeln(fo)       end;   writeln(fo,70*'-');   write('сформированный массив: ');   write(fo,'сформированный массив: ');   var b: =a.elementswithindexes.where(x-> (x[0]=x[1]) or (x[0]=9-x[1]))       .select(x-> x[2]).toarray;   b.foreach(x-> write(x: 7: 3)); writeln;   b.foreach(x-> write(fo,x: 7: 3)); writeln(fo);   write('отсортированный массив: ');   write(fo,'отсортированный массив: ');   // пузырьковая сортировка   for var i: =0 to 18 do       for var j: =0 to 18-i do           if b[j]> b[j+1] then swap(b[j],b[j+1]);   b.foreach(x-> write(x: 7: 3)); writeln;   b.foreach(x-> write(fo,x: 7: 3)); writeln(fo);   fo.close end. результат *** исходный массив ***   0.668  0.629  0.589  0.550  0.509  0.469  0.428  0.387  0.346  0.305   0.263  0.222  0.180  0.139  0.098  0.057  0.016 -0.024 -0.064 -0.104   -0.143 -0.182 -0.220 -0.258 -0.295 -0.331 -0.367 -0.402 -0.437 -0.470   -0.503 -0.535 -0.566 -0.596 -0.625 -0.653 -0.680 -0.706 -0.732 -0.756   -0.779 -0.801 -0.822 -0.841 -0.860 -0.878 -0.894 -0.909 -0.923 -0.936   -0.948 -0.958 -0.968 -0.976 -0.983 -0.988 -0.993 -0.996 -0.999 -1.000   -1.000 -0.999 -0.996 -0.993 -0.988 -0.983 -0.976 -0.968 -0.959 -0.949   -0.939 -0.927 -0.914 -0.900 -0.885 -0.869 -0.853 -0.835 -0.817 -0.798   -0.778 -0.757 -0.735 -0.713 -0.690 -0.667 -0.642 -0.617 -0.592 -0.566   -0.539 -0.512 -0.485 -0.457 -0.429 -0.400 -0.371 -0.341 -0.312 -0.282 сформированный массив:     0.668  0.305  0.222 -0.064 -0.220 -0.402 -0.596 -0.680 -0.860 -0.878 -0.983 -0.988 -0.993 -0.976 -0.914 -0.835 -0.757 -0.592 -0.539 -0.282 отсортированный массив: -0.993 -0.988 -0.983 -0.976 -0.914 -0.878 -0.860 -0.835 -0.757 -0.680 -0.596 -0.592 -0.539 -0.402 -0.282 -0.220 -0.064  0.222  0.305  0.668 вариант без пузырьковой сортировкиbegin   var f: real-> real: =       x-> cos(0.75*power(x,0.25)-0.5*power(x,0.5)+0.25*power(x,0.75));   var a: =matrgen(10,10,(i,j)-> f(5+(10*i+j)*0.75));   writeln('*** исходный массив ***'); a.println(7,3); writeln(70*'-');   var fo: =openwrite('output.txt');   writeln(fo,'*** исходный массив ***');   for var i: =0 to 9 do begin       for var j: =0 to 9 do write(fo,a[i,j]: 7: 3);       writeln(fo)       end;   writeln(fo,70*'-');   write('сформированный массив: ');   write(fo,'сформированный массив: ');   var b: =a.elementswithindexes.where(x-> (x[0]=x[1]) or (x[0]=9-x[1]))       .select(x-> x[2]).toarray;   b.foreach(x-> write(x: 7: 3)); writeln;   b.foreach(x-> write(fo,x: 7: 3)); writeln(fo);   write('отсортированный массив: ');   write(fo,'отсортированный массив: ');   b.sort; // вместо пузырьковой сортировки   b.foreach(x-> write(x: 7: 3)); writeln;   b.foreach(x-> write(fo,x: 7: 3)); writeln(fo);   fo.close end.