1)Приведите примеры реоцессен, в которых встречаются равномерно и неравно мерно распределенные последовательности случайных чисел.2) Проверьте метод фон Неймана для двузначных чисел, а именно установите, какведет себя последовательность в зависимости от выбора первого числа после-довательности.​

Объяснение:

var

 N, K, L, P, a : integer;

i : integer;

 p0, b : Double;

begin

writeln ('Введите объём бидона ');            readln (N);

writeln ('Введите количество улиц ');        readln (К);

writeln ('Введите количество литров на улицу ');       readln (L);

writeln ('Введите цену литра молока ');    readln (P);

p0 := n*p; // цена всего бидона первоначально

 for I := 1 to k - 1 do begin   //  с 1 т.к. первой улице не разбадяжил

   p0 := p0 - l*p0/n;  // стоимость всего молока реальная для каждой улицы

   b := (p-p0/n)*l; // на сколько денег обманул улицу

   writeln(Format('%d улице должен вернуть = %f ', [i, b]))

end;

end.