Program n1; var n,i,k,a: integer; begin k:=0; write('введите кол-во чисел: '); readln(n); for i:=1 to n do begin write('введите ',i,' число: '); readln(a); if a mod 2=0 then k:=k+1; end; writeln('кол-во четных: ',k); end.
Количество информации можно определить как -log2(p), где p - вероятность данного события. Оно измеряется в битах. Также можно использовать равносильное выражение log2(1/p) Вероятность взятия чёрного шара равна 10/20 = 0,5, белого - 4/20 = 0,2, жёлтого такая же - 0,2, красного - в 2 раза меньше - 0,1. Значит, если мы взяли чёрный шар, мы получили кол-во информации log2(1/0,5) = log2(2) = 1 бит, если белый, то log2(1/0,2) = log2(5) = 2,3219 бит если жёлтый, то столько же 2,3219 бит если красный, то log2(1/0,1) = log2(10) = 3,3219 бит
var n,i,k,a: integer;
begin
k:=0;
write('введите кол-во чисел: ');
readln(n);
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a);
if a mod 2=0 then k:=k+1;
end;
writeln('кол-во четных: ',k);
end.