Это только ответ на 1 вопрос.
var a, i, n, b, sum:integer;
begin
sum:=0;
readln(n);
for i:=1 to n do
begin
readln(a);
if (a>9) and (a mod 2=0) then
sum:=sum+a;
writeln(sum);
end;
end.
Не более 16 этажей и не менее 10:
<span>1 бит - половина дома (верхняя или нижняя) </span>
<span>2 бит - половина половины </span>
<span>3 бит - п. п. п. </span>
<span>4 бит - п. п. п. п. </span>
<span>может быть: 4,8,16, 32 и т. п. этажей.. . </span>
<span>при том, что в доме не менее 10 этажей </span>
<span>число 10 в двоичной системе: 1010</span>
20*x-обём файла винтика
20*x*0.2+20x=24x-обём шпунтика
20x-4x=16x-осалось у винтика когда шпунтик начал сказать свой файл
16x/(x/2)=32 мин будет у витика
24x/(x/2)=48мин у шпунтика
48-(32+4)=12мин разница времени
ответ 12
<span><span><span> 1
</span><span>
1
2
</span><span>
2
4
</span><span>
3
8
</span><span>
4
16
</span><span>
5
32
</span><span>
6
64
</span><span>
7
128
</span><span>
8
256
</span><span>
9
512
</span><span>
10
1024
</span></span></span>