Var m,mk,k:integer;
begin
readln(m);
k:=0;
mk:=1;
while mk<m do
begin
mk:=mk*4;
k:=k+1;
end;
k:=k-1;
writeln(k);
end.
Пример:
500
4
Var x1, x2, n:integer;
y: real;
begin
write('Введите х1: ');
read(x1);
n:=x1;
write('Введите х2: ');
readln(x2);
while n<>(x2+1) do
begin
y:=n/3+2;
writeln('y = ',y);
n:=n+1;
end;
<span>end.
</span>
1. Количество пикселей уменьшилось в 4 раза.
2. Количество бит на пиксель уменьшилось в 2 раза так как 256 = 2⁸,
а 16 = 2⁴
3. Следовательно объём памяти уменьшился в 4 * 2 = 8 раз.
Ответ: 8
Вот. На фото все видно.
В 3-м примере мы прибавляем тех кто умеет играть только в шашки и только в шахматы и тех, кто играет в шашки и шахматы одновременно