Двоичная или десетичная система вычесления
Условия попадания в область:
var
x,y:real;
begin
Write('Введите координаты точки (x,y): ');
Readln(x,y);
if (x>3) and (y>2) then Writeln('Точка попадает в область')
else Writeln('Точка не попадает в область')
end.
{
Для второго условия в if надо записать
(x<-2) and (y<-4)
}
Program z1;
var a,b,c,p:double;
begin
readln(a);readln(b);
c:=sqrt(a*a+b*b);
p:=a+b+c;
writeln(p);
readln
end.
Вроде бы вот так
program nomer;
var x,s,i:integer;
begin
for x:=10 to 99 do
begin
if (x mod 5)=0 then s:=s+x;
end;
writeln(s);
end.
В вопросе скорей всего ошибка.
Наверно имеется ввиду 1 пиксель, а не бит.
Глубина цвета = 32 бита, значит 1 пиксель кодируется 32 битами
32 бита=4 байта