Var
a, b, c:integer;
begin
readln(a, b, c);
if (a<b) then begin
if (a<c) then
writeln(a);
end
else
if (b<c) then
writeln(b)
else
writeln(c);
end.
Число 2^2015 в двоичной системе представляется единицей с 2015 нулями.
Число 2^2014 в двоичной системе представляется единицей с 2014 нулями.
...
Число 2^0 в двоичной системе представляется просто единицей.
Поэтому сумма всех 2016 членов со степенями двойки в двоичной системе счисления будет представляться 2016 единицами.
Для простоты предположим, что таких единиц не 2016, а всего 6. А потом ответ увеличим на 2010.
Рассмотрим сложение двоичных чисел 111111+110 (это двоичная шестерка).
111111
+ 110
-----------
1000101
Мы получили в результате четыре нуля.
А теперь прибавим, как говорилось выше, 2010 и получим ответ: 2014.
<u><em>Ответ:</em></u> 2014 нулей.
Всего 8 нот.
log(2) 8 = 3.
Соответственно, необходимо 3 бита для кодировки ноты.
Ты что с ума сашел? Это же так просто!
var
x, a, k, t, i, d: integer;
begin
readln(x);
a := x; k := 0;
while a > 0 do
begin
k += 1;
a := a div 10;
end;
if k mod 2 = 0 then
write('В числе четное количество цифр')
else
begin
t := 1;
for i:=1 to k div 2 do
t *= 10;
d := x div t mod 10;
write(d);
end
end.