Составьте программу, определяющую принадлежность точки а(х, у) окружности с центром 0(0; 0) и радиусом r. в паскалеabc.

159

185

Посмотреть ответы 3

Ответы на вопрос:

Гуманитарийлох

Информатика

4,6(79 оценок)

Var x,y,r: real; begin readln(r); readln(x,y); if sqr(x)+sqr(y)< =sqr(r) then writeln('принадлежит')else writeln('не принадлежит'); end.в предыдущем решении точка лежит только на границе окружности

уже3

Информатика

4,4(99 оценок)

Var x,y,r: real; begin writeln('введите радиус окружности'); readln(r); writeln('введите координаты точки а'); readln(x,y); if sqr(x)+sqr(y)=sqr(r) then writeln('принадлежит') else writeln('не принадлежит'); end.