- 27.07.2018 01:09
- Информатика
- remove_red_eye 18731
- thumb_up 12
Ответы и объяснения 2
Var x,y:real;
begin
write('Введите координаты точки : ');
readln(x,y);
if ((x>=-5)and (y>=-5) and(x<=0)and(y=0) and (x<=5) and (sqrt(sqr(x)+sqr(y))<=5) and (y=0)) then writeln('Принадлежит')
else writeln('Не принадлежит');
end.
Тест №1
Введите координаты точки : 1 2
Принадлежит
Тест №2
Введите координаты точки : -3 -3
Принадлежит
Тест №3
Введите координаты точки : 3 -3
Не принадлежит
- 28.07.2018 13:44
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.