Begin
var ar := arrrandom(30, 1, 20);
ar.Println;
writeln(ar.Where(x -> x mod 2 = 0).Sum);
var a := readinteger;
write(ar.Where(x -> x > a).Count);
end.
<span>Наполним пятилитровую банку и перельем в трехлитровую, у нас останется 2 литра, выливаем их в ведро, потом перельем обратно 3 литра в пятилитровую и наполним ее доверху ну и опять перельем в трехлитровую, у нас опять останется 2 литра их выливаем в ведро. В ведре получилось 4 литра воды</span>
Собака, кошка, таракашки, букашки, курицы, червяки
1 байт = 8 бит
Переводим биты в байты: 200/8=25 байт в секунду
25*10=250 байт