Var x,y : real;
begin
readln(x,y);
if (x>=0)and(y<=1)and((x*x+y*y<=1)or(y>=x-1))
then writeln('YES')
else writeln('NO')
end.
Пример:
0.5 -0.5
YES
(X < 16)
НЕ (X четное), следовательно, (X нечетное).
Между условиями стоит "И", следовательно, они должны выполнять одновременно.
X < 16 И X нечетное.
Нам нужно наибольшее.
Ответ: 15.
10 человек ничем не заняты,
11 занимаются только спортом
D s s s. S s s s s s s s s s s s s s s s s s s s s s sss