Нарисовать блок-схему для var x,y,r,h: real;
begin
write('координаты точки: ');
readln(x,y);
write('радиус круга: ');
readln(r);
h := sqrt(x*x + y*y);
if h > r then writeln('Точка не принадлежит кругу')
else writeln('Точка принадлежит кругу');
end.
112
227
Ответы на вопрос:
Популярно: Информатика
-
Gravetalia28.07.2021 18:56
-
ШтанУдачи27.06.2023 11:56
-
niloybasak003.03.2022 20:49
-
dima2002eee24.07.2020 00:28
-
BlackVaiNor21.10.2022 10:21
-
vladys1323.04.2023 19:42
-
alpysovat03.03.2020 19:16
-
Kristgame17.05.2021 02:14
-
partsik9512.05.2020 18:51
-
Милена300113.10.2020 19:21