//Pascal ABC.NET 3.1 сборка 1256
Var
ar:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin
readln(ar[i]);
if ar[i] mod 3=0 then k:=k+1;
end;
writeln(k);
end.
<span>На первое задание
4) разорви
5) намочи
6) изгрязни
7)высуши
8) положи
9) конец</span>
30 байт, т.к 1 символ=8 бит, I=8*30=240 бит =>240/8=30 байт
"dpi" - точек в дюйме. 1200 * 10,16 * 1200 * 10,16 = 148644864 точки. log2(32) = 5 битов. Для хранения 5 битов нужен 1 байт. Т. о. байт на точку или 148644864 / 1024 / 1024 ~= 141,76 МБ. Если предположим, что 5 битов раскидываются по разным байтам, сжимая таким образом файл, то 148644864 * 5 / 1024 / 1024 / 8 ~= 88,6 МБ.