Составить программу Pascal вычисления значения выражения:

239

267

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

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

sasavotchel

Информатика

4,5(65 оценок)

Var x,y,p,r: real; begin writeln('x, y: '); readln(x,y); r: =x*x+y*y; write('p = '); readln(p); if r=p*p then writeln('точка лежит на окружности') else if r=p*p then write('точка лежит вне окружности'); end. пример: x, y: 3 4 p = 5 точка лежит на окружности