18432 делим на 8 потом на 1024 И ВОЛИЙА
Остальные аналогично.
Var
x, y: real;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Writeln((y >= 0) and (y <= x + 4) and (y <= 4 - x))
end.
var
x, y: real;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Writeln((x >= 0) and (y >= x - 6) and (sqr(x) + sqr(y) <= 36))
end.
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-30,30);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('*** Полученный массив ***');
for var i:=0 to m-1 do
for var j:=0 to n-1 do
if (i+j).IsEven then a[i,j]*=3
else a[i,j]:=a[i,j] div 2;
a.Println(4)
end.
Пять бит степень двойки берем с избытком 2 в пятой 32