А - сканер, б - клавиатура, в - мышь, г - принтер, д - монитор, главное слово наушники
1) Выбор 1 из 16 снижает неопределенность в 16 раз. 16=2^4, следовательно получается 4 бита информации.
2) Выбор 1 из 256 снижает неопределенность в 256 раз. 256=2^8, следовательно получается 8 бит информации.
Вот пожалуйста. Сделал на PascalABC.NET
program HelloWorld;var i, x, y, z: integer;begin
i:=1;while i<>0 do begin readln(i); x:=x+i; if i>0 then y:=y+1; if i<0 z:=z+1 end;writeln(x, ';', y-z); end.
var A:array[1..10] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 10 do
if (a[i]>0) and (a[i] mod 3=0) then k:=k+1;
writeln ('k=',k);
readln;
end.
помоему так)