<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y,z):=(-0.1722,6.33,3.25e-4);
var gamma:=5*ArcTan(x)-1/4*ArcCos(x)*(x+3*Abs(x-y)+x*x)/
(Abs(x-y)*z+x*x);
Writeln(gamma)
end.
265,14 мб перевести в бит байт кб гб
33,8 байт перевести в бит кб мб гб
Смотри, начало отсчета: 0;0
Сместиться на (1, 3) - оказываемся в (1, 3)
Сместиться на (1, -2) - прибавляем к (1, 3) + (1, -2) = (2,1)
кц, в условии сказано что это надо повторить 2раза значит умножаем на 2 = (4,2)
Сместиться на (2, 6) - прибавляем <span>(2, 6) = (6,8)
</span>(6,8) это точка в которой мы окажемся в конце программы, теперь нам надо чтобы чертежник перешёл в начальную точку (0 0), чтобы сделать это мы должны от (6,8)
отнять (6,8), другими словами к (6,8) прибавить (-6,-8).
Ответ: (-6,-8) - это первый вариант. В ответе пишем 1
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
Mas=array[,] of integer;
var
n,m:integer;
procedure GetMas(s:string; var a:Mas);
begin
if n=0 then begin
n:=ReadInteger('Количество строк в массиве:');
m:=ReadInteger('Количество столбцов в массиве:');
end;
Writeln('Вводите элементы массива ',s);
a:=ReadMatrInteger(n,m)
end;
function MinMas(a:Mas):=a.ElementsByRow.Where(x->x<0).Min;
begin
var a,b,c,d:Mas;
n:=0;
GetMas('A',a);
GetMas('B',b);
GetMas('C',c);
GetMas('D',d);
Writeln('Искомый максимум равен ',
Max(MinMas(a),Max(MinMas(b),Max(MinMas(c),MinMas(d)))))
end.
<u>Пример</u>
Количество строк в массиве: 3
Количество столбцов в массиве: 5
Вводите элементы массива A
-33 -50 34 -41 -41
-31 10 37 31 40
32 -49 -32 -27 4
Вводите элементы массива B
-22 35 16 -6 37
0 11 -48 18 -20
-39 25 -43 38 -26
Вводите элементы массива C
23 38 -33 8 26
17 -8 -42 39 5
16 -1 -12 -25 -49
Вводите элементы массива D
29 31 -21 27 18
-38 49 -11 17 -49
6 48 -34 30 49
Искомый максимум равен -48
Это слово мышь. Потому что полевая мышь, есть в природе.