Var
F: real;
begin
F:= 4.25;
write(trunc(F) - (F - trunc(F)));
end.
У вас указана информационная ёмкость картинки, указаны размеры картинки.
4 Кбайта = 4*8 Кбита = 32 Кбита = 2^5 Кбит = 2^15 бит
Точек в картинке
32 * 1024 = 2^5*2^10 = 2^15
И теперь мы видим, что памяти хватит только на чёрно-белую картинку, с глубиной цвета 1 бит на пиксель.
Цветов получается 2 - белый и чёрный. Нет, могут быть и другие, но всё равно их только 2, больше одним битом не закодировать, если не применять алгоритмы сжатия.
Вот TURBO PASCAL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
<span>uses crt;
var i,sum,tmax,tmin:integer;sred:real;
t:array [1..30] of integer;
begin
clrscr;
sum:=0;
writeln('vvedite T -> ');
for i:=1 to 6 do begin
write(i,' zamer t = ');
read(t[i]);
end;
tmax:=t[1];
tmin:=t[1];
for i:=2 to 6 do begin
if t[i]>tmax then
tmax:=t[i];
if t[i]<tmin then
tmin:=t[i];
end;
for i:=1 to 6 do
sum:=sum+t[i];
sred:=sum/6;
writeln('Max T = ',tmax);
writeln('Min T = ',tmin);
writeln('srednyaya T = ',sred:3:3);
readkey;
<span>end</span></span>
Ответ:
22
Объяснение:
ОБОЗНАЧЕНИЯ: A=x∈A P=x∈P Q=x∈Q
(P=Q) → !A=1
!(P=Q)+!A=1
A = !(P=Q)
A = P⊕Q P=[3;15] Q=[ 14;25] max A=[3;25] d(A)=25-3=22