Ширина изображения: 6 * 256 = 1536
Высота изображения 8 * 256 = 2048
Общее количество точек в изображении 1536 * 2048 = 3 145 728
6 МБайт = 6 * 1024 * 1024 = 6 291 456
На каждую точку приходится 6 291 456 / 3 145 728 = 2 байта или 16 битов
Цвет состоит из 3 компонент (красный, зелёный, синий), поэтому на каждый цвет приходится 16 / 3 = 5 бит.
Ответ: цветовая глубина 5 бит на пиксель.
Примечание: часто используется схема, в которой на красный и синий отводится по 5 битов, а на зелёный 6, что позволяет полностью занять все 16 битов.
Program p1;
const N=10;
var i,max,sum:integer;
a:array[1..10] of integer;
begin
randomize;
max:=0;
sum:=0;
for i:=1 to N do a[i]:=1+random(10);
for i:=1 to N do write(a[i],' ');
for i:=1 to N do
if (a[i]>max) then max:=a[i];
writeln;
writeln('Максимальное число: ',max);
for i:=1 to N do
if(a[i]=max) then sum:=sum+1;
write('Количество максимальных чисел: ',sum);
end.
1.
n = int(input())
if n == 0:
print(0)
else:
a, b = 0, 1
for i in range(2, n + 1):
a, b = b, a + b
print(b)
2.
d = []
k = []
for i in range(10):
d.append(int(input()))
for i in range(len(d)):
if d[i] % 2 == 0:
if d[i] % 3 != 0:
k.append(d[i])
print(min(k))
function sum(i, n: <em>integer</em>): <em>boolean</em>;
var
a, b: <em>integer</em>;
begin
a := i;
repeat
b := b + a mod 10;
a := a div 10;
until (a = 0);
sum := (b = n);
end;
var
n, i, k: <em>integer</em>;
begin
readln(n, k);
for i := 1 to k do
if sum(i, n) then
writeln(i);
end.
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3><h2>№52</h2>
begin
var x := ReadReal('x =');
var F: real;
if x <= 3 then F := x * x - 3 * x + 9
else F := 1 / (x * x * x + 6);
Print(F)
end.
<h2>№54</h2>
begin
var x := ReadReal('x =');
var F: real;
if x <= -3 then F := 9
else F := 1 / (x * x + 1);
Print(F)
end.