1) N=2^i ⇒ 2^7=128 (цветов)
2) 640*350=224000 (пикселей в изображении). N=2^i ⇒ 16=2^i ⇒ i=4 (количество бит на один пиксель) 224000*4 = 896000 (бит) = 896000/8 = 112000 (байт) =112000/1024 = 109,375 кбайт
3) Переведем Мбайты в биты 1.5*1024*1024*8 = 12582912 (бит)
Посчитаем количество пикселей 2048*1024 = 2097152,
теперь количество бит разделим на количество пикселей
12582912 / 2097152 = 6 (бит)
Количество цветов посчитаем по формуле N=2^i, N=2^6= 64 цвета
Const
cost_1 = 10;
cost_pack = 90;
var
m: integer;
begin
readln(m);
writeln('Блоков: ', m div cost_pack);
writeln('Дисков: ', (m mod cost_pack) div cost_1);
end.
Результат отработки алгоритма:
A=2
B=2
C=9
D=3
Var a,b,c:integer;
begin
readln(a);
b:=10;
while a>0 do
begin
c:=a mod 10;
if (c mod 2<>0) and (c<b) then b:=c;
a:=a div 10;
end;
if b<10 then write(b) else write('В числе нет нечетных цифр');
end.
Program MyProject;
{$APPTYPE CONSOLE}
var
p:int64;
a:integer;
i:2..10;
begin
a:=1+2;
p:=a;
i:=2;
while i<10 do begin
i:=i+1;
a:=a+i;
p:=p*a;
end;
Write(p)
end.