Const
n=10;
var
m:array[1..n] of integer;
a,p,i:integer;
begin
Write('Введите a,p: ');
Read(a,p);
for i:=1 to n do
begin
m[i]:=a+p*(i-1);
Write(m[i],' ')
end;
Writeln;
end.
Тестовое решение
Введите a,p: -5 8
-5 3 11 19 27 35 43 51 59 67
Иванов - кассир
Сидоров - заведующий
Борисов - контролёр
опоздала наверное. ну все таки
Ответ:
Объяснение:
Язык Паскаль.
Модель:
Среднее число пассажиров, перевозимых по Кольцевой ветке равно 850 000 человек.
ДСЧ выбрасывает число из интервала 1-100000. Если это число четное, то его вычитаем из среднего, иначе прибавляем к среднему.
Листинг:
uses Crt;
const n=850000;
m=7;
type Metro = array [1..m] of longint;
var A: Metro;
i: integer;
P, max: longint;
begin
ClrScr; Randomize; max:=0;
for i:=1 to m do
begin
P:=1+random(100000);
if (P mod 2 = 0) then P:=(-1)*P;
A[i]:=n+P;
if A[i]>max then max:=A[i];
WriteLn (' ', i, ': ',A[i]:5);
end;
WriteLn(' Max = ',max);
ReadLn;
end.
Результат работы - в прикрепленных фото.
Количество информации равно бинарному логарифму (т. е. по основании 2) количества равновероятных возможностей. В бассейне 20 дорожек, выбрана одна (неважно под каким номером) Тогда i = log2 20 (логарифм числа 20 по основанию 2) =(по формуле перехода логарифма к другому основанию) = lg20 / lg2 ≈ 4.32
Ответ 4.32 бит