1)
program z1;
var x,y: integer;
begin
write ('x = ');
readln (x);
write ('y = ');
readln (y);
if (y>0) and (x*x+y*y<4) then writeln('Точка попадает в синюю область')
else writeln('Точка не попадает в синюю область')
end.
2)
program z1;
var x,y: integer;
begin
write ('x = ');
readln (x);
write ('y = ');
readln (y);
if (x<0) and(y<0) and (x*x+y*y<5) then writeln('Точка попадает в синюю область')
else writeln('Точка не попадает в синюю область')
end.
Объяснение:
Проекции точки на оси x и y являются катетами прямоугольного треугольника. Гипотенуза - расстояние от начала координат до точки.
Чтобы точка принадлежала кругу расстояние до точки должно быть меньше радиуса.
Поскольку здесь половина и четверть круга, добавляем ограничения по х и у.
const
N=30;
var
a: array [1..N] of integer;
i, j, max: integer;
begin
for i:=1 to N do readln(a[i]);
j:=0;
max:=0;
for i:=1 to N do
if (a[i]<0) then
begin
max:=max+a[i];
j:=j+1;
end;
writeln('Средняя температура среди дней,',
' когда были заморозки: ',max/j);
end.