Посчитать количество нулей в двоичной записи записи числа

@PRK2013 · Регистрация: 23.10.2013

Студворк — интернет-сервис помощи студентам

сосчитать количество нулей в двоичной записи записи i

@Puporev · 24.10.2013, 09:31

Pascal

uses crt;
var a:longint;{вводимое число в СС 10}
const c:array [0..1] of char= ('0','1');{массив цифр в сс 2}
var res:string;{строка=число в сс2 }
    d:0..1;{цифры 0 и 1 в десятичной системе }
    k:byte;{счетчик нолей}
begin
clrscr;
write('Введите десятичное число а= ');
readln( a );
res:='';
k:=0;
while a<>0 do {пока введенное число не 0}
 begin
  d:=a mod 2;{берем остаток от деления на 2(0 или 1)}
  if d=0 then k:=k+1;{если 0 считаем}
  res:=c[d]+res;{добавляем к итоговой строке в начало цифру из массива 0 или 1}
  a:=a div 2;{дели число на 2}
 end;
writeln('В СС 2 = ',res);
write('Число нолей=',k);
readln
end.

@Напильнег · 24.10.2013, 12:41

Пупорев, как ты думаешь, сколько нулей в двоичной записи числа 0? А у тебя сколько?

Введите десятичное число а= 0
В СС 2 =
Число нолей=0

- у тебя получается, что число 0 вообще не имеет двоичного представления!

@PRK2013 0 / 0 / 0 Регистрация: 23.10.2013 Сообщений: 7
		1
	Посчитать количество нулей в двоичной записи записи числа 24.10.2013, 09:24. Показов 8693. Ответов 2 Метки нет (Все метки) сосчитать количество нулей в двоичной записи записи i 0

@Напильнег 481 / 119 / 17 Регистрация: 30.09.2010 Сообщений: 473
	24.10.2013, 12:41	3
	Пупорев, как ты думаешь, сколько нулей в двоичной записи числа 0? А у тебя сколько? Введите десятичное число а= 0 В СС 2 = Число нолей=0 - у тебя получается, что число 0 вообще не имеет двоичного представления! 0

Опции темы

Посчитать количество нулей в двоичной записи записи числа

Решение