<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,xn,xk,dx):=(2.89,14.34,-50.0,50.0,2.5);
var n:=Trunc((xk-xn)/dx);
var (Max,k,s):=(0.0,0,0.0);
var f:real->real:=x->(a*a+b*Sign(x)*Power(Abs(x),1.0/3))/(3.56+Sin(a+b)+Exp(x));
for var i:=0 to n do begin
var x:=xn+dx*i;
var y:=f(x);
if (i+1) mod 3=0 then Writeln(x:5:1,' ',y);
if y>0 then begin
if y>Max then Max:=y;
s+=y; k+=1
end
end;
Writeln('Max(x,y)=',Max:5:1,' ',f(Max));
Writeln('Среднее значение y равно ',s/k:0:9)
end.
<u>Пример</u>
-45.0 -16.6538893021468
-37.5 -15.4796268651575
-30.0 -14.1362550800162
-22.5 -12.5454529373774
-15.0 -10.5472040721327
-7.5 -7.69691252360641
0.0 2.34531251806799
7.5 0.0201157784771028
15.0 1.33732990416318E-05
22.5 8.26246301436193E-09
30.0 4.95110092030162E-12
37.5 2.91644814868151E-15
45.0 1.69913234739356E-18
Max(x,y)= 2.3 2.10840685577529
Среднее значение y равно 0.212935940
Ответ:
Переведем размеры изображения в точки.
48.26×1200=57912 точек .
Размер изображения составит 57912×57912=3353799744 точек.
Глубина цвета - это количество бит , которые требуются для кодирования цвета одной точки. 16 бит - это 16/8=2 байта.
Тогда общий объём составит 3353799744×2= 670759948800байт.
Переводим в килобайты:670759948800 /1024≈6550390.13 Кбайт.
Переводим в мегабайты:6550390.13 /1024≈6396.87 Мбайт
Моно и в гигабайты перевести: 6396.87/1024≈6.25 Гбайт.
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
for var i:=0 to a.RowCount-1 do begin
var row:=a.Row(i);
var imin:=row.IndexMin;
Swap(row[imin],row[row.High]);
a.SetRow(i,row)
end;
Writeln('*** Полученный массив ***'); a.Println(4)
end.
Если А делится на 55, то оно делится на 5 и на 11. Это уже три утверждения, но истинными могут быть только два. То есть А не делится на 55.
Если А делится на 11, нам нужно выбрать еще два истинных утверждения. Но делимость на 5 и на 55 будут следовать друг из друга, а меньше 10 А быть не может, т.к. 11 больше 10.
Остается только вариант, когда А меньше 10, делится на 5, не делится на 11 и 55. Т.е. А = 5