Сколько единиц в двоичной записи десятичного числа 123?

123=1111011 в двоичной кол-во

  шесть

нужно найти логарифм числа по основанию 2 (в калькуляторе этого нет, можно сделать так - натуральный логарифм числа делим на натуральный логарифм двойки, или десятичный логарифм числа на десятичный логарифм двойки - получаем логарифм числа по основанию 2), затем берем его целую часть и прибавляем к ней 1. в данном случае получается 7, а запись - 1111011 

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

разделим монеты на кучки 1002 1002 и одна монета

1-е взвешивание сравниваем 1002 и 1002

если они одинаковые то они настоящие и значит осталось сравнить одну монету с какой-нибудь из этих кучек и выяснить тяжелее она или легче

если одна из куч тяжелее то ее делим пополам и снова взвешиваем

если половинки оказались одинаковые, значит они настоящие и фальшивая монета легче настоящей, а если разные то фальшивая монета тяжелее настоящей