Сколько единиц в двоичной записи числа 8^1014 - 2^530 - 12?

8^1014 - 2^530 = 2^x (2^3)^1014 - 2^530 = 2^x 2^3042 - 2^530 = 2^x 3042 - 530 = x 2512 = x 2512 - это степень 2, т.е. число 2512 нулей  если от него отнять 12, то получится число 2512 - 3 = 2509 единиц.  {например: (2^5) = 100000. от него отнимем 12.необходимо для удобства 12 представить, как (2^5 - 1 -11).  если от (2^5) = 100000 отнять 1, то будет 11111. 5 единиц. и 11111 - 1011 = 10100.итог от 2^5 - 12 = 10100 т.е. меньше на 3 единицы}  ответ 2509 единиц

1

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    if n mod 2 = 0 then write('четное') else write ('нечетное');

    realdn

end.

 

2

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    e : = n mod 10

    if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');

    realdn

end.

 

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.