Задание 14 ЕГЭ

Pascal abc.net:
///Сколько единиц содержится в двоичной записи значения выражения: 42020 + 22017 – 15?
###
var count:=0;
var s:=4bi**2020 + 2bi**2017 - 15;
while s>0 do begin
  if s mod 2=1 then count+=1; s:=s div 2;
end;
count.Pr
--------------------------------------------------------------------------------------------------------------------------
Python:
count = 0
s = 4**2020 + 2**2017 - 15
while s > 0:
    if s % 2 == 1:
        count += 1
    s //= 2
print(count)

Pyhton:
a = pow(6,203) + 5*pow(6,405) - 3*pow(6,144) + 76
def numeral_system_сhange(a : int, new_system: int) -> list:
    lst = []
    while a > 0:
        lst.insert(0, a % new_system)
        a //= new_system
    return lst
print(*numeral_system_сhange(a, 6))