Ответы на вопрос:
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 точка лежит на окружности
Популярно: Информатика
-
SANH1L05.04.2020 04:36
-
Vikohkamy31.12.2021 17:17
-
Snikersuae11.03.2020 05:05
-
rus20013014.01.2020 01:57
-
ososkovaluba26.01.2022 06:05
-
Ренаткрутой11.09.2021 05:46
-
tokio315.07.2020 16:18
-
bobmarli43606.11.2020 01:56
-
1234567891yyttgg03.08.2021 14:28
-
kvastalkerr14.04.2023 03:18