Сколько единиц в двоичной записи числа 2^2018 - 2018

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

койка, стройка, трест, рой, репа, тройка, река, серп,строка.

а столбчатая диаграмма

б график 

в ярусная диаграмма

г областная диаграмма

дкруговая диаграмма

самая крупная птица это страус к тому же он ещё не летает