Word и так имеет такой тип
Как бы не чего переделывать
1) a x b = 1 при a=1 возможно (если b=1)
2) a x b = 1 при а=0 противоречиво, результат 0
3) a + b = 0 при a=1 противоречиво, результат 1
4) a + b = 1 при a=0 возможно (если b=1)
Это значит нарисовать 3 вида овощей (помидоры, огурцы и баклажаны) и равнозначных з вида, допустим грибов (опята, лисички, белые)...
#python v3.6.2
# dec - десятичное число, n - разрядность числа, по умолчанию - 32 (как у типа integer)
def dec_to_bin(dec, n=32):
if dec > 0:
b = ''
while dec > 0:
i = str(dec % 2)
b = i + b
dec = int(dec / 2)
return b
if dec < 0:
dec = -dec
b = ''
while dec > 0:
i = str(dec % 2)
b = i + b
dec = int(dec / 2)
# прямой код
b = '0'*(n-len(b))+b
# обратный код
b = b.replace('1', '2').replace('0', '1').replace('2', '0')
# дополнительный код
b = b[0:b.rfind('0')]+'1'+'0'*(len(b[b.rfind('0'):len(b)])-1)
return b
if dec == 0:
return 0
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(15,-50,50); a.Println;
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
Writeln('Минимум: ',a.Min);
Writeln('Среднее арифметическое отрицательных: ',
a.Where(t->t<0).Average)
end.
<u>Пример</u>
-16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20
Отрицательных: 8
Минимум: -41
Среднее арифметическое отрицательных: -23.125