Shift вот эта клавиша за это отвечает
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
Друга ищи, а найдёшь - береги.
Старый друг лучше новых двух.
<span>(10 = A, 11 = B, 12 = C, 13 = D, 14 = E, 15 = F)</span>
1. 483:16= 30 (ост.3)
30:16= 1 (ост. 14)
1:16= 0 (ост. 1)
Пишем остатки, начиная снизу, получается 1E3
2. 9735:16= 608 (ост. 7)
608:16= 38 (ост. 0)
38:16= 2 (ост. 6)
2:16= 0 (ост. 2)
Получается 2607
3. 604:16= 37 (ост. 12)
37:16= 2 (ост. 5)
2:16=0 (ост. 2)
Получается 25C
True
во втором все то,что без скобок
12