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

Question

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

---

Comments

help me ^(

Answer 1

Язык Паскаль

var x, y:integer

begin

readln (x, y);
if ( x>=0 ) and (x*x+y*y <=100) then<br>writeln ("Принадлежит")
else writeln ("Не принадлежит");

end.