V = k * i ( где V - объем файла, k - количество пикселей, i - глубина цвета)
2 в степени i = N ( глубина кодирования (количество бит, занимаемых 1 пикселем), N - количество цветов (палитра)) ==>
2 в степени i = 16
i = 4
v = 2048 * 1024 * 4 = 8 388 608 бит = 1 048 576 байт = 1024 КБ = 1 МБ
Var x,y,u:real;
function min(a,b:real):real;
begin
if a>b then min:=b else min:=a;
end;
begin
write('x=');read(x);
write('y=');read(y);
u:=min(x+y,x*y);
writeln(u);
<span>end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var X := ArrRandom(ReadInteger('A='), -21, 21);
X.Println;
X.Sorted.Println;
X.Where(t -> t.IsOdd).OrderDescending.Println
end.
<h3>A= 18</h3><h3>9 9 -10 21 -11 -13 -2 19 5 20 -5 20 11 -6 -2 -10 14 -12</h3><h3>-13 -12 -11 -10 -10 -6 -5 -2 -2 5 9 9 11 14 19 20 20 21</h3><h3>21 19 11 9 9 5 -5 -11 -13</h3>
1) 5 => 8 => 16 => 19 => ответ 38
2)2 => 7 => 6 => 11=> 10 => 15 => 14 => ответ 42
3) 1=> 3 => 2 => 6=> 5 => 15 => ответ 14
4) 1=> 6 => 5 => 10 => 9 => 14 => 13 =>18 => ответ 17