Какой молодец - сам задание написал, сам его решил... =)
Да и все цифры могут быть четными:)))
64 · 512 = 2⁶ · 2⁹ = 2¹⁵ бит
32 Кб = 2⁵ Кб = 2⁵ · 1024 = 2⁵ · 2¹⁰ = 2¹⁵ байт = 2¹⁵ · 8 = 2¹⁵ · 2³ = 2¹⁸ бит
2¹⁸ = i · 2¹⁵
i = 2¹⁸ / 2¹⁵ = 2¹⁸⁻¹⁵ = 2³ = 8 бит на каждый цвет
<h2>Ответ</h2>
256
1 720 Кбайт
2 720 Кбайт
3 1 Кбайт
4 если б байты то 40 если б это биты то 5 (я просто не понял что значит б)
Program Ok;
var a,i,k,n:integer;
begin
k:=0;
write('Введите кол-во чисел: ');
readln( n);
for i:=1 to n do
begin
read(a);
if (a div 10 <> 0) and (a div 100 = 0) and (a mod 2 = 0) and (a mod 3 = 0) then
k:=k+1;
end;
write(k);
end.