Переведите число 40 из десятичной системы счисления в двоичную систему счисления. Cколько единиц содержит полученное число? В ответ укажите только число - количество единиц

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

2^i = 64

i = 6 бит приходится на 1 символ

3 * 40 * 60 * 6 = 43200 бит

43200 : 8 = 5400 байт

var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.

у меня получилось, что первое число 954, второе 459, а третье 495. т.е. получился пример : 954-459=495