Ответ:
а) 865 = 1101100001 = 1541 = 361
б) 785 = 1100010001 = 1421 = 311
в) 149 = 10010101 = 225 = 95
г) 683 = 1010101011 = 1253 = 2AB
д) 7260 = 1110001011100 = 16134 = 1C5C
Var x,y:real;
begin
readln(x,y);
if (abs(x)<=1)and(y<=1)and((y>=-x)or(y>=x))
then writeln('Yes') else writeln('No');
end.
Пример:
0.5 -0.4
Yes
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := SeqRandom(10000, -10, 10).Where(t -> t.IsEven)
.Take(15).ToArray;
a.Println;
a.Where(t -> t < 0).Count.Println;
a.Transform(t -> t < 0 ? 0 : t);
a.Println
end.
<h2>Пример</h2><h3>-6 10 2 4 -2 -4 2 2 10 -10 -6 -8 -8 2 -6</h3><h3>8 </h3><h3>0 10 2 4 0 0 2 2 10 0 0 0 0 2 0</h3>
Обьект, природный для многих целей, выполняющий разнообразные функции, называют универсальным.