Это только ответ на 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.
Если K - разрешение, N - глубина, а I - объём, то K умножай на N и получишь биты. Дели на 8 если нужен байт
<em>1) из 5 л наполняем 3л - в 5л отстается 2л</em>
<em>2) опусташаем 3л банку - переливаем из 5литровой 2л в 3х литровую банку</em>
<em>3) 5л банка оказалась пустрой, а в 3л банке 2л</em>
<em>4) наполняем 5л банку</em>
<em>5) заливаем недостающий литр в 3х литровую банку</em>
<em>всё, в 5 литровой банке остается 4 литра.</em>
<em>Совет: нарисуй эту схему на тетрадном листке в клетку, столбики 3л - 3 клетки, 5л- 5клеток, и "переливай" :)</em>