Синформатикой, ! 1)сколько единиц в двоичной записи числа 42015 + 22015 – 15? 2)сколько единиц в двоичной записи числа 81014 – 2530 – 12? 3)сколько единиц в двоичной записи числа 22014 – 4650 – 38? 4)сколько единиц в двоичной записи числа 42018 + 8305 – 2130 – 120? 5)сколько единиц в двоичной записи числа 82018 – 41305 + 2124 – 58?

42015 + 22015 – 15сначала решаешь в 10-ой системе счисления: 42015 + 22015 – 15 = 64015затем переводишь найденное число из 10-ой в 2-ую: 64015(в 10-ой) = 1111101000001111 (в 2-ой)в данном числе 10 единиц.остальные примеры решаются точно также

program xxx;

var n, c, d, e, k : integer;

begin

  wtite ('введите 3-х значное число n =');

  readln (n);

  c : = n div 100;

  d : = (n div 10) mod 10;

  e : = n mod 10;

  k: = 100*e + 10*d + c;

  if n = k then write ('палиндром') else write('не палиндром')

end.

var n,a,b,c,d,s: integer;

begin

  write('n='); readln(n); {n -   даанное 4-хзначное число}

  a: =n mod 10; {последняя, 4-я, цифра числа}

  b: =(n div 10) mod 10; {предпоследняя, 3-я, цифра}

  c: =(n div 100) mod 10; {2-я цифра}

  d: =n div 1000; {1-я цифра}

  s: =a+b+c+d;

    writeln('s=',s);

end.