Переведите : 0110011 и 0111011: в восьмиричную, десятичную, шестнадцатиричную 22 и 752: в двоичную, десятичную, шестнадцатиричную 15 и 100: в двоичную, восьмиричную, шестнадцатиричную а4 и cad: в двоичную, восьмиричную, десятичную

1011-(8)=13 1011в-(10)=11 1011в-(16)=b 22-(2)=10010 22-(10)=18 22-(16)=12. 752-(2)=111101010 752-(10)=490 752-(16)=1ea 15-(2)=1111 15-(8)=17 15-(16)=11. 100-(2)=1100100 100-(8)=144 100-(16)=64. a4-(2)=10100100 a4-(8)=244 a4-(10)=164 cad-(2)=110010101101 cad-(8)=6255 cad-(10)=3245

var

  a, b, c, d, x1, x2: real;  

 

begin

  writeln('введите коэффициент при х^2');

  readln(a); //вводим коэффициент при x^2

  writeln('введите коэффициент при x');

  readln(b); //вводим коэффициент при х

  writeln('введите свободный член');

  readln(c); //вводим свободный член

  d: = sqr(b) - 4 * a * c;  

  writeln('дискриминант уравнения равен   ', d : 0 : 5); {печатаем дискриминант и округляем его до 5 знаков после запятой}

  if d > 0 then 

  begin

    writeln('d > 0 => уравнение имеет два различных действительных корня: ');

    x1: = (-b - sqrt(d)) / (2 * a);

    x2: = (-b + sqrt(d)) / (2 * a);

    writeln('x1 = ', x1 : 0 : 5, ', x2 = ', x2 : 0 : 5); {считаем корни уравнения и печатаем их с округлением до 5 знаков после запятой}

  end;

  if d = 0 then

  begin

  writeln('d = 0 => уравнение имеет два одинаковых действительных корня: ');

  writeln('x1 = x2 = ', -b / (2 * a) : 0 : 5); {если дискриминант равен 0, печатаем два одинаковых корня с округлением до 5 знаков после запятой}

  end;

  if d < 0 then writeln('d < 0 => действительных корней уравнение не имеет');  

end.

   

program kvurav; uses crt; var a,b,c: integer; d,x,x1,x2: real; begin

clrscr; writeln('введите  коэффициент  при х в квадрате (а)'); readln(a); writeln('введите  коэффициент  при х (b)'); readln(b); writeln('введите число с‘'); readln(c); d: =sqr(b) - 4 * a * c; writeln('дискриминант = ',d: 4: 2); if d> =0 then begin d: =sqrt(d); x1: =(-b+d)/2*a; writeln('x1 = ', x1: 4: 2); if d> 0 then begin x2: =(-b-d)/2*a; writeln('x2 = ', x2: 4: 2); end; end else writeln('дискриминант меньше нуля - корней нет'); readln; end.