Записать в поле длиной 3 байта число 110000000111101010001(2) Пронумеровать разряды

5.5  8.8  9.8  11.6  12.7  11.7  11.2  9.3  10.3  10.4  7.4  7.2  5.2  5.3  6.3  6.9  7.8  2.8  2.9  3.9  3.6  4.5      а вот как переводить: с конца над числом в двоичной системе пишешь: 1,2,4, и.т.д      если  единичка есть-прибавляешь это число. если единички нет-ничего не прибавляешь.

например- 1011    8+0+2+1=11            1000      8+0+0+0=8    111   4+2+1=7   11      2+1=3      10    2+0=2                10011101      128+0+0+16+8+4+0+1=157  а твои числа все в уме считаются.проверь может я ошиблась где нибудь)

ну вроде "алгоритм" переходит в "терминал", хотя по буквам не получается - только последние 5 нормально встают и то, если в алфавите нет ё и й

: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’);   write (‘n=’); readln (n);

: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’);   write (‘n=’); readln (n);   i: =1; s: =0;   repeat     s: =s+i;     i: =i+1;   until i> n;   writeln (‘s=’,s);

  i: =1; s: =0;   repeat     s: =s+i;     i: =i+1;   until i> n;   writeln (‘s=’,s);

var a: array [1..10] of integer;

i,k: integer;

begin

  read(a);

  k: =1;

  for i : = 1 to 10 do

  begin

        if a[k]> a[i] then k: =i;

  end;

  if k mod 2 = 0 then writeln(k," - chetnoe")

  else writeln(k," - ne chetnoe");

end.