128*128=16384 pixel
4 Kbyte=4096 byte=32768 bit
32768:16384 = 2 <span>bits per pixel</span>
2²=4
Ответ: возможное число цветов в палитре изображения - 4.
Для перевода чисел из двоичной в восьмеричную систему счисления двоичное число делят на группы по 3 разряда (в целой части - справа налево, в дробной - слева направо) и каждую группу заменяют на соответствующую ей восьмеричную цифру.
110000110101(2) = 110 000 110 101(2) = 6065(8)
1010101(2) = 1 010 101(2) = 125(8)
0,10100111001(2) = 0,101 001 110 010(2) = 0,5162(8)
0,1111110001(2) = 0,111 111 000 100(2) = 0,7704(8)
str_1 = input("text: ")
print(str_1.split(" ")[0])
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const
n = 10;
var
a: array[1..n] of integer;
i, j, c, nc, max, imax: integer;
p:BigInteger;
begin
// Заполним массив сл. числами
max := -MaxInt;
for i := 1 to n do
begin
a[i] := random(-100, 100);write(a[i]:4);
if abs(a[i]) > max then begin
max := a[i];imax := i;
end;
end;
writeln;
//1. Количество элементов массива, больших С.
writeln('Введите число "с"');readln(c);
for i := 1 to n do if a[i] > c then nc := nc + 1;
writeln('Элементов больше чем ', c, ' : ', nc);
//2. произведение элементов массива,
//расположенных после мак симального
//по модулю элемента
p := 1;
for i := imax + 1 to n do p := p * a[i];
writeln('Максимальный по модулю элемент находится на ', imax, ' месте');
writeln('Произведение элементов массива,расположенных после максимального по модулю элемента ', p);
//3. Преобразовать массив таким образом, чтобы сначала размещались все
//отрицательные элементы, а потом все положительные
for i := 1 to n - 1 do
for j := 1 to n - i do
if a[j] > a[j + 1] then begin
swap(a[j], a[j + 1]);
end;
writeln('Преобразованный массив :');
for i := 1 to n do write(a[i]:4);
end.
Тестовое решение:
-6 91 52 62 -28 -64 86 86 -91 -61
Введите число "с"
15
Элементов больше чем 15 : 5
Максимальный по модулю элемент находится на 2 месте
Произведение элементов массива,расположенных после максимального по модулю элемента -1246076928
Преобразованный массив :
-91 -64 -61 -28 -6 52 62 86 86 91
Readln(s);
s1:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
s2:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
s3:=s;
if(s1>s2)and(s1>s3)then writeln(s1)
else if(s2>s1)and(s2>s3)then writeln(s2)
else writeln(s3);