Написать программку в pascal

Написать программку в pascal

Задать свой вопрос
1 ответ

var

 x, y, R: real;

begin

 R := 1; // радиус окружности (в задачке равен 1)

 Write('Введите через пробел координаты точки  x, y: ');

 Read(x, y);

 if (Sqr(x) + Sqr(y) lt;= Sqr(R)) and (y lt;= 0) then

   Write('Точка принадлежит заштихованной области')

 else Write('Точка не принадлежит заштихованной области');

end.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт