Сколько единиц в двоичной записи числа 145

Чтобы число 145 возвести в двоичную систему, нужно его делить на 2, пока не останется единица, поэтому 145 = 10010001, значит, количество  единиц в двоичной записи числа 145 - 3. ответ: 3 единицы.

program anastas65; var  a,x,y: integer; begin  write('введите число a ');   readln(a);   writeln('***                alphaeus                ***');   writeln('*** получение а^28 за 6 ходов ***');   x : = a*a; // получаем а^2  y : = x*a; // получаем а^3  x : = x*x; // получаем а^4  y : = y*x; // получаем а^7  y : = y*y; // получаем а^14  y : = y*y; // получаем а^28  writeln('      результат = ',y);   writeln('**********************************'); end.

program nadya18081998; const n=20; var  f,i,o,ns: string; begin  write('введите фамилию ');   readln(f);   write('введите имя ');   readln(i);   write('введите отчество ');   readln(o);   writeln('**********************************');   writeln(' фамилия: ',f);   writeln('        имя: ',i);   writeln('отчество: ',o);   writeln('инициалы: ',copy(i,1,1)+copy(o,1,1));   writeln('**********************************'); end.