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

чтобы перевести десятичное число в двоичную систему счисления нужно его последовательно делить на 2 (пока делится). результат читается снизу вверх по остаткам.

при переводе числа 195 из 10-ой с.с. в 2 с.с. получилось число 11000011

следовательно, в двоичной записи 4 единицы

Двоичная запись числа 195 -->   11000011. ответ: 4 единицы

Program xxx; var n, s, k, c : integer; sa : real; begin write ('введите число n-'); readln (n); k: =0; s: =0; while n> 0 do begin c: = n mod 10; s: =s+c; k: =k+1; n: =n div 10 end; write ('сумма цифр = ', s); write ('количество цифр =', k); sa: =s/k; write ('среднее арифметическое =', sa) end.

var

a: [1..100] array of integer;

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.