Переведите из десятичной системы счисления в двоичную числа: 110101,100001,11001 срогчно надо кто первый ответт тому лучшее решение и

для перевода из десятичной системы счисления в двоичную, надо разделить представленное число на 2 с остатком (если имеется). и продолжать каждый раз делить часное до тех пор пока часное не перестанет делится на 2 нацело. т.е. = 1. и записать все остатки начиная с последнего часного в обратном порядке их получения.

110101|      2

110100    55050|      2

              1    55050    27525|      2

                                      0    27524    13762|      2

                                                              1    13762    6881|      2

                                                                                    0      6880    3440|    2

                                                                                                          1    3440    1720|    2

                                                                                                                              0    1720    860|    2

                                                                                                                                                  0    860    430|  2

                                                                                                                                                                  0    430    215|  2

                                                                                                                                                                                  0   214   107|  2 

                                                                                                                                                                                                  1    106    53|  2

                                                                                                                                                                                                                  1    52    26|  2

                                                                                                                                                                                                                              1    26    13|  2

                                                                                                                                                                                                                                          0      12    6| 2

                                                                                                                                                                                                                                                        1    6  3|2

                                                                                                                                                                                                                                                                  0  21

                                                                                                                                                                                                                                                                          1

110101 = 11010111000010101

два других числа считаются точно также

100001 = 11000011010100001

11001 = 10101011111001

procedure roots(a, b, c: real; var x1, x2: real;

    var fail: boolean);

begin

  var d : = b * b - 4 * a * c;

  if d < 0 then

    fail : = true

  else

  begin

    fail : = false;

    d : = sqrt(d);

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

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

  end

end;

begin

  var x1, x2: real;

  var fail: boolean;

  loop 3 do

  begin

    var (a, b, c) : = readreal3('введи a, b, c: ');

    roots(a, b, c, x1, x2, fail);

    if fail then

      println('нет действительных корней')

    else if x1 = x2 then

      println('x =', x1)

    else

      println('x1 =', x1, '   x2 =', x2)

  end

end.