Если на Pascal, то вот:
program pr1;
var a:real;
begin
write("Введите число ");
readln(a);
writeln("Вы ввели число ", a);
end.
<span>// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017</span>
begin
var t:=Arr(-2,1,3,-4,2,0,1,-3,5); t.Println;
Sort(t); t.Println;
Println('Прозведение:',t[0]*t[1]*t[2]);
end.
В двоичную:
1)<span>18(10) = 10010(2)
</span>2) 7(10)<span> = 111(</span>2)
3) <span>1999(10) = 11111001111(2)
Получаем: 10010.111.</span>11111001111
В восьмиричную:
1) <span>18(10) = 22(8)
</span>2) 7(10)<span> = 7</span>(8)
3) <span>1999(10) = 3717(8)
</span>
Получаем: 22.7.3717
В шестнадцатиричную:
1) <span>18(10) = 12(16)</span>
2) 7(10)<span> = 7(</span>16)
3) 1999(10)<span> = 7CF(</span>16)
Получаем: 12.7.7CF
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -49, 49);
a.Println;
var b := ArrRandom(10, -49, 49);
b.Println;
var c := a.Zip(b, (p, q)-> p + q).ToArray;
c.Println
end.
<h2>38 -38 -24 -7 -5 -22 6 -42 -21 -11</h2><h2>12 -16 -23 -36 -29 8 -42 -44 -4 24</h2><h2>50 -54 -47 -43 -34 -14 -36 -86 -25 13</h2>
!B = !1 = 0
A & B = 0 &1 = 0
!(A v B) = !(0 v 1) = !1 = 0
!A v !B = !0 v !1 = 1 v 0 = 1
Ответ - вариант Г