Var x,y: real;
<span>begin
</span><span> write('x y через пробел: '); readln(x,y);
</span><span> if ((x>=0) and (x<=6) and (y<=6-x) and (y>=0)) or
</span><span> ((-6<=x) and (x<=0) and (y<=0) and (y>= -6-x)) then
</span><span> writeln('точка принадлежит области')
</span><span> else writeln('точка не принадлежит области');
</span><span>end.
</span><span>
</span><span>x y через пробел: -3 -4
</span><span>точка не принадлежит области
</span>x y через пробел: -3 -2
<span>точка принадлежит области</span>
x y через пробел: 1 1.5
<span>точка принадлежит области
</span>x y через пробел: 3 4
<span>точка не принадлежит области
</span><span>
</span>
1) количество точек в изображении = 128*128 = 16384
2) 4Кб = 32768 бит (4*1024 = 4096 байт, т.к. 1 бит = 8 байт, 4096*8=32768)
3) 32768:16384 = 2 - это глубина цвета, число цветов в палитре =4
var x: integer;
begin
write('X=');
readln(x);
if x mod 2=0 then
writeln('X является чётным числом');
else
writeln('X является нечётным числом');
end;
Первое и четвёртое.
Неприличные посты удалить и объясниться перед близкими.
Вариант в Excel
------------------------------