Var n,k : Integer;
Begin
Readln(n);
k:=0;
Repeat
If n mod 10 = 0 then k:=k+1;
n:=n div 10;
Until n<=0;
Writeln('В этом числе нулей: ',k);
end.
Высчитаем количество пикселей в изображении:
128x128 = 16384
Высчитаем количество бит в 2 КБ:
2x1024x8 = 16384
Посчитаем количество бит на пиксель. Для этого поделим количество бит в изображении на количество пикселей:
16384 / 16384 = 1
Посчитаем глубину цвета:
2¹ = 2
Ответ: В изображении может быть максимум 2 цвета.
Program Pr;
Var
a : array [1..100, 1..100] of integer;
i, max, min, j, n: integer;
Begin
cls;
read(n);
min := 100000;
max := -100000;
for i := 1 to n do
for j := 1 to n do
begin
read(a[i,j]);
if (a[i,j] > max) then
max := a[i,j];
if (a[i,j] < min) then
min := a[i,j];
end;
writeln ('Сумма = ', min + max);
writeln ('Разность = ', max - min);
writeln ('Произведение = ', max * min);
<span>End.</span>
Шанс выпадения 1 равен 1/6. Всего 6 вариантов, значит i=3 битам. Ответ: 3 бита.