Крайние точки не учитываются. Если вам необходимо, чтобы они учитывались - замените знаки < и > на <= и >=
var
Y0,X0:integer;
begin
writeln('Введите координаты точки Y0 и X0');
readln(Y0,X0);
if ( ((X0>-6) and (X0<-3)) and ((Y0>-3) and (Y0<2)) )
or
( ((X0>-6) and (X0<-1)) and ((Y0>2) and (Y0<6)) )
then
writeln('Точка принадлежит области')
else
writeln('Точка НЕ принадлежит области')
end.
Держи программу. Вывод сделай сам. Верного ответа я не вижу...
const m = 7;
var
X: array [1..m, 1..m] of integer;
A, i, j: integer;
begin
randomize;
A := 100;
for i := 1 to m do
begin
for j := 1 to m do
begin
X[i, j] := random(20);
write(X[i, j]:6);
end;
writeln;
end;
write('======================');
writeln('======================');
for i := 1 to m do
for j := 1 to m do
if i mod 2 <> 0 then
X[j, i] := A;
for i := 1 to m do
begin
for j := 1 to m do
begin
write(X[i, j]:6);
end;
writeln;
end;
end.
1)90 * 60=5400
5400*8=43200(байтов)
2)17*26=442
442*120=53040(точек)
3)53040 : 43200 как 10608:8640