Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  123
Language: PASCAL
Code:
program zadacha18_1;
Var x, y, x0, y0, R: real;
begin
writeln('введіть координати центра круга x0, y0 та радіус R');
readln(x0, y0, R);
writeln('введіть координати точки x, y');
readln(x, y);
if sqr(x–x0)+sqr(y–y0)<=sqr(R)
then writeln('належить області')
else writeln('не належить області')
end.
Comments: