Сколько единиц в двоичной записи числа 8^1341-4^1342+2^1343-1344 ?

2^4023-2^2684+2^1343-1344 100000000000000000000000000000 - 100000000000000000000 011111111100000000000000000000 + 10000000000000 011111111100000010000000000000 - 1 011111111100000011111111111111 - 10100111111 011111111100000011101011000000 = 4023-2684+1343-8

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

program fasf;

var

n,q: integer;

begin

write('введите этаж: ');

readln(n);

q: =n*4;  

writeln('квартиры: ',q,q-1,q-2,q-3);

end.