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.
Каждый символ занимает 16 бит.
16 * 64 * 256 = 264144 бит = 32768 байт = 32 кбайт
Вроде бы так, но когда программа выполняется, то из-за такого большого кол-ва клеток (1000х1000) все отображается как один черный квадрат ))) если сделать кол-во поменьше (например 100х100), то клетки будут видны (скрин).
uses graphABC;
var
w, h, i: integer;
begin
setwindowsize(1010, 1010);
w := windowwidth div 1000;
h := windowheight div 1000;
for i := 1 to 1000 do
begin
line(i * w, 0, i * w, windowheight);
line(0, i * h, windowwidth, i * h);
end;
end.
УРУГВАЙ ,ПАРАГВАЙ,АФГАНИСТАН