двоичное представление

[Asya7]

Можете помочь с задачей (нужно решить в паскаль авс)? Указать то число заданного множества целых чисел, в двоичном представлении которого больше всего единиц. И по возможности объясните на словах, что здесь вообще выполняется?

[Stilet]

Не знаю есть ли в АБЦе битовые операции, но могу показать на обычном паскале, если покажешь ввод чисел.

[Serge_Bliznykov]

Сообщение от Stilet

Не знаю есть ли в АБЦе битовые операции, но могу показать на обычном паскале

Виталий, проще надо быть!
в любом Паскале можно проверить чётное или нечётное число - тем самым проверяет наличие единички в самом младшем разряде.
Так же в любом Паскале можно число разделить целочисленно на 2 (это равносильно битовому сдвигу на один разряд вправо).
Выполняя в цикле проверку на нечётность, увеличение счётчика, если нечётное, деление на два легко получить число единиц в двоичном представлении числа:

countOne := 0;
while N > 0 do begin
  if odd(N) then Inc(countOne);
  N := N div 2  
end;

[Stilet]

Да я то не против, думаю преподу сие не понравится. Наверное же они там логические операторы проходят. Так то конечно все средства хороши, если твой пример ТС подойдет я только "за"

[Serge_Bliznykov]

Сообщение от Stilet

Да я то не против, думаю преподу сие не понравится. Наверное же они там логические операторы проходят.

ну, тогда можно так:

var N, countOne : integer;
begin
  N:=15;
  countOne := 0;
  while N > 0 do begin
    if (N and 1) = 1 then Inc(countOne);
    N := N shr 1
 end;
 WriteLn(countOne)
end.