<u>// PascalABC.NET 3.3, сборка 1623 от 16.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
SeqRandom(5,-10,10).Println
end.
<u>Пример во вложении.</u>
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(10,20,25); a.Println;
Writeln(a.Max-a.Average)
end.
<u><em>Тестовое решение</em></u>
23 25 25 23 23 24 20 23 25 21
1.8
Сначала посчитаем количество операций = 1 000 000 * 3600= 3 600 000 000 операций
теперь посчитаем быстродействие арифмометра = 1/10=0,1 операция в секунду
теперь посчитаем нужное время = 3 600 000 000 / 0,1= 36 000 000 000 секунд или около 1141,5 лет.
Всего 6 символовв алфавите, значит на 1 символ отводится 3 бита информации
В книге 4000+1000+2000+1500+500+1000=10 000 сиаволов
Значит в книге содержится 30 000 бит инофрмации
3.........................................................