фальсификация случайности исследуя возможность фальсификации случайных за час были созданы программы qbasic qb64 и таблица использующая формулы =СЛУЧМЕЖДУ(0;1)=ЕСЛИ(B3=B2;C2+1;0)=СЧЁТЕСЛИ(C$3:C$55000;D2)=СУММ(E2:E10)=E2/E3 идея: фальсифицировать вероятность 50% результаты: исследование E зелёным чисто excel: случайные распределились закономерно исследование 0 жёлтым qb 0: случайные распределились закономерно исследование 1 красным qb 1: явная подделка равное число подряд исследование 2 лиловым qb 2: умная подделка но не запрограммированы все возможные и виден перекос из-за алгоритма вывод: определить фальшивые случайные реально ' 0.basOPEN "0.txt" FOR OUTPUT AS #1FOR s = 1 TO 50000: PRINT #1, (INT(RND * 1000) MOD 2): NEXTCLOSE' 1.basOPEN "1.txt" FOR OUTPUT AS #1FOR d = 1 TO 5: FOR s = 1 TO 100FOR i = 1 TO s: PRINT #1, 1: NEXTFOR i = 1 TO s: PRINT #1, 0: NEXTNEXT: NEXT: CLOSE' 2.basOPEN "2.txt" FOR OUTPUT AS #1FOR k = 1 TO 100: FOR s = 1 TO 7 FOR d = 1 TO 2 ^ (7 - s) FOR i = 1 TO s: PRINT #1, 1: NEXTFOR i = 1 TO s: PRINT #1, 0: NEXTNEXT: NEXT: NEXT: CLOSEвывод: определить фальшивые случайные реально