21122. Решаем от обратного. 262 -3. 259-3. Корень из 256=16. Корень из 16=4. 4-3=1
13*16^3+9*16^2+5*16+5=55637
55637/2, остаток 1,
27818/2, остаток 0,
13909/2, остаток 1,
6954/2, остаток 0,
3477/2, остаток 1,
1738/2, остаток 0,
869/2, остаток 1,
434/2, остаток 0,
217/2, остаток 1,
108/2, остаток 0,
54/2, остаток 0,
27/2, остаток 1,
13/2, остаток 1,
6/2, остаток 0,
3/2, остаток 1,
1/2, остаток 1.
Итого: 1101100101010101, 7 нулей.
Rain[i] - массив с количеством осадков в i-тый день, 0 - если их не было
var rain: array [1..10] of integer;
i, k:integer;
begin
k := 0;
for i := 1 to 10 do
if rain[i] = 0 then k := k+1;
if k = 5 then writeln('Да, без осадков было ровно 5 дней');
end.
1 Кб = 1024 Байт = 8192 Бит
1 Мб = 1024 Кб = 1048576 Байт = 8388608 Бит
1 Гб = 1024 Мб = 1048576 Кб = 1073741824 Байт = 8589934592 Бит