, переведите заданные числа из десятичной системы счисления в двоичную заполните таблицу​

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.

количество кбайт умножаете на 1024 получаете количество символов 3,5*1024=3584

var a,b,c,d,e: real;

begin

  read(a,b,c,d);

  e: =(a+b+c+d)/4;

  writeln(e: 0: 4);

end.

3*2=6128*512*6=393216ъ128+512=640640: 10=6464*6=384кб