Ответы на вопрос:
Рисунка нету, так что предположу, что в программе верное условие. var x,y: real; begin readln(x, y); if (x> =0) and (y< =1) and (x*x + y*y < = 1) and (y > = x-1) then write('принадлежит') else write(' не принадлежит'); end.
Популярно: Информатика
-
sladenykaya13629.11.2020 13:31
-
musa3105200105.02.2021 18:44
-
lenapelevina016.07.2020 18:21
-
Eldar100110.06.2023 05:53
-
vladkabanets13.08.2021 15:06
-
serovv75109.03.2022 21:42
-
олжас20007.01.2020 11:38
-
likery05.02.2023 04:07
-
ichi220904.07.2022 10:12
-
Танюха141031.07.2022 21:08