Program n1;
var a: integer;
begin
for a:=8 to 96 do
if( a mod 8 =0) then writeln(a);
end.
N = int(input('N = '))
k1=0
k2=0
k3=0
for i in range(N):
a = int(input())
if a==0:
k1=k1+1
elif a>0:
k2=k2+1
else:
k3=k3+1
print(k1)
print(k2)
print(k3)
Пример:
<span>N = 5
28
0
0
0
0
4
1
0</span>
Сообщение информативно, если оно пополняет знания человека
32 = 2^5, значит 1 цвет = 5 бит
5*3 = 15 бит