Переведите данное число 772из десятичной в двоичную, восьмеричную, и шестнадцатиричну систему счисления

Вдвоичной 1011110010

Var ar: array[1..10,1..10] of integer; i,j,max,count: integer; begin count: =1; max: =0; randomize; for i: =1 to 10 do begin for j: =1 to 10 do begin ar[i,j]: =random(10)+1; if (j mod 10=0) then writeln(ar[i,j]) else write(ar[i,j],' '); if (ar[i,j] > max) then max: =ar[i,j]; end; end; for i: =1 to 10 do begin for i: =1 to 10 do begin for j: =1 to 10 do begin if (ar[i,j] = max) then begin writeln('индекс ',count,' элемента = ',i,' ',j); inc(count); end; end; end; end.

Нужно найти максимальное и минимальное из трёх чисел. пусть даны три числа x, y, z пусть: m = min{x, y, z},  m = max{x, y, z}, r = max - min; теперь остаётся записать в качестве ответа  число r, оно и будет разницей. на c++ написал бы так: #include < iostream> using namespace std; int  maxnum( int  x,   int  y,  int  z) {       if  ((x> =y)& & (x> =z))              return  x;         else if ((y> =x)& & (y> =z))             return  y;       else           return  z; } int  minnum( int  x,   int  y,   int  z) {       if  ((x< =y)& & (x< =z))              return  x;         else if  ((y< =x)& & (y< =z))             return  y;         else              return  z; } void main() {       setlocale(0, "rus");         int  x, y, z;       cout < < "введите через пробел 3 числа" < < endl;       cin > > x > > y > > z;       cout < < "разница : " < <   maxnum(x,y,z) - minnum(x,y,z) < < endl; }