Для всех заданий воспользуемся формулой N=2^i? где N -количество цветов, а i -количество бит на 1 пиксель.
Задача 1.
N=2^4=16 цветов.
Задача 2.
N=224=2^i, поскольку для кодирования 128 цветов необходимо 7 бит, а для кодирования 256 цветов -8 бит, выбираем большее число, то есть 8 бит или 1 байт.
Задача 3.
65536 это 2^16⇒требуется 16 бит или 2 байта.
Задача 4.
1. Узнаем общее количество пикселей 1280*1024=1310720
2. Полученное число умножаем на глубину цвета 1310720*32=41943040 бит = 41943040/8 = 5242880 байт = 5242880/1024 = 5120 кб =5120/1024 = 5 Мб
Ответ: 5 Мб
Var
a: array [1..5] of integer;
i: byte;
k: integer := Integer.MaxValue;
begin
for i := 1 to 5 do
readln(a[i]);
for i := 1 to 5 do
k := Min(k, a[i]);
writeln(k);
<span>end.</span>
Вопрос построен не корректно. Прошу уточнить что имелось в виду
s := '123456789'; - строковой переменной s присваивается значение
Delete ( s, 1, 2 ); - из строки s удаляется 2 символа, начиная с 1-го (значение s будет '3456789')
n := Pos ( '6', s ); - определяется номер позиции символа '6' в строке s. Этот номер равен 4
writeln ( n ); - на экран выводится значение n, т.е. 4
<span><span> if</span><span> <условие> </span>then<span> <оператор1> </span>else<span> <</span>оператор2>;</span><span><span> </span>(если) (то) (иначе)</span>
<span><span><span>2) </span>if</span><span> </span><условие><span> </span>then <оператор>;</span>
<span><span>(если) (то) </span>
</span>и не Paskal a pascal