PASCALABC. NET В массиве хранится информация об отметках 20 учащихся за контрольную работу(случайные числа от 1 до 10).Составьте программу, которая вычисляет количество учащихся, получивших неудовлетворительные отметки(0,1,2).

program izi;

   var mass:array [1..20] of integer;

   i,n:integer;

begin

   randomize;

   for i:= 1 to 20 do

       mass[i]:= random (10);

   for i:= 1 to 20 do

       write (mass[i],' | '); //оценки учеников

   n:=0;

   for i:= 1 to 20 do  

       if mass[i] <= 2 then

           n:= n+1;

   writeln;

   writeln ('Количество учеников, получивших "плохие" отметки(0,1,2): ',n);

end.

Объяснение:

1) o+1=1;   2) 1 * 2= 2; 3) 2 + 1 = 3; 4) 3 * 2 =6; 5) 6 * 2 = 12; 5) 12 * 2 = 24; 7) 24 + 1 = 25; 8) 25 * 2 = 50.

i = log₂ (1/p)

log₂ (1/p) = 4

1/p = 2⁴

1/p = 16

p = 1/16 вероятность появления автобуса n1

вероятность появления автобуса n2: р = 1/16 : 2 = 1/32

i = log₂ (1/1/32) = log₂ 32

i = 5 бит

5 бит информации несет сообщение о появлении автобуса n2.