Infiniti_Inter

VIII/5

May 12th, 2021
460
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. program VIII;//название
  3. var//объявление переменных
  4. x, y:real;//координаты точки
  5. begin
  6.     Write('Введите x, y:');
  7.     ReadLN(x, y);
  8.     //Радиус внутреннего круга равен трем, внешнего 7,
  9.     //найдем расстояние от центра круга до точки по т. Пифагора
  10.     //и если но > 3 и < 7, то точка лежит внутри заданной области
  11.     if (x * x + y * y > 3*3) and (x * x + y * y < 7 * 7) then
  12.         WriteLN('Да')
  13.     else
  14.         if (x * x + y * y = 3*3) or (x * x + y * y = 7 * 7) then//если на границе
  15.             WriteLN('На границе')
  16.         else
  17.             WriteLN('Нет');
  18. end.
  19.  
  20.  
RAW Paste Data