Var x,y: real;
Begin
readln (x,y);
if (x>=0)and(x*x+y*y>=3*3)and(x*x+y*y<=5*5)
then writeln('YES')
else writeln('NO')
End.

Популярно: Информатика

• 

  Ампфетамін

  14.03.2022 19:07
  Вкаком году появились компьютерные сети и беспроводные сети передачи...
• 

  GiViS

  14.05.2023 04:30
  Дано слово. можно только менять местами соседние буквы. нужно получить...
• 

  орпна

  26.12.2021 19:07
  Створити програму для побудови малюнка з використанням анімаційних...
• 

  Ksenyukn

  04.06.2021 03:03
  Пронумеруй носители информации в порядке их появления: глиняная табличка,...
• 

  10203040502017

  26.06.2023 23:51
  Вмаркированном списке для обозначения элемента списка используются:...
• 

  Regina13579

  18.03.2023 23:13
  1) назовите 2 цели науки эргономики ; ... 2) перечислите 2 причины...
• 

  tanechka21998

  16.03.2020 06:42
  Какие проблемы решаются при использовании машинного обучения? ​...
• 

  ksyu5551

  14.08.2021 21:55
  Из каждой строки матрицы размером m*n сформировать m одномерных массивов....
• 

  vol12

  11.03.2020 10:45
  В книге 60 страниц. Мальчик прочитал 2/3 книги. Сколько страниц осталось...
• 

  maximkanariks

  12.02.2023 06:00
  Дайте ответ на вопрос Почему крепостное право-антигумманно (бесчеловечно)?​...