<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandomReal(ReadInteger('n='),0,3); a.Println;
a.Transform(x->(x>=1) and (x<=2)?1.0:x); a.Println
end.
<u>Пример</u>
n= 5
0.555734023244928 1.04867691874908 0.0153413121659967 1.08162656430231 2.92952936139401
0.555734023244928 1 0.0153413121659967 1 2.92952936139401
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(19,0,200); a.Println;
Writeln('k=',a.Where(x->x<100).Count)
end.
<u><em>Тестовое решение</em></u>
127 120 137 75 141 61 116 13 52 180 109 80 91 36 71 191 56 7 108
k=10
1. В высказывании 52 символа (включая пробелы и точку). Значит объем равен 52*8 = 416 бит
2. В первом тексте каждый символ кодируется 4-мя битами, т.к. 2^4=16, во втором тексте каждый символ кодируется 8-ю битами, т.к. 2^8=256.
Длины одинаковые, значит информационный объем первого текста в два раза меньше.
01011110.11000011.10100010.00110010=<span>94.195.162.50</span>
00110010=50
10100010=162
11000011=195
1011110= 94