Задан фрагмент алгоритма. Определите значение переменной Р после выполнения алгоритма: алг
нач
цел Р, i, j
Р := 1;
нц для i от 1 до 4
нц для j от i до 4
Р := Р * i + j ;
кц
кц
вывод Р
кон
Заполните трассировочную таблицу. Если ячейка в таблице должна оставаться пустой, то в ней поставьте знак "-".

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.

2^i = n

2^i = 64

i = 6 бит.

ответ. 6 бит

program xxx;

      var i : integer;

                a : array[1..15] of real;                   n : real;   begin    randomize;     for i: =1 to 15 do        a[i]: =random(20)-20;  

    writeln('исходный массив а: ');

    for i: =1 to 15 do

          write(a[i]);

    n: =a[1];

    a[1]: =a[15];

    a[15]: =n;

    writeln('полученный массив а: ');

    for i: =1 to 15 do

          write(a[i]);

    readln

end.

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.