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 являются катетами прямоугольного треугольника. Гипотенуза - расстояние от начала координат до точки.
Чтобы точка принадлежала кругу расстояние до точки должно быть меньше радиуса.
Поскольку здесь половина и четверть круга, добавляем ограничения по х и у.
Поделитесь своими знаниями, ответьте на вопрос:
Дано целое число "c". напишите программу, которая возводит в квадрат частное от целочисленного деления числа "с" на "5" и выводит на экран монитора результат"
program z1; var c: integer; x,y: real; begin read(c); x: =c div 5; y: =sqr(x); writeln('y=',y); end.