
' 0.bas OPEN "0.txt" FOR OUTPUT AS #1 FOR s = 1 TO 50000: PRINT #1, (INT(RND * 1000) MOD 2): NEXT CLOSE
' 1.bas OPEN "1.txt" FOR OUTPUT AS #1 FOR d = 1 TO 5: FOR s = 1 TO 100 FOR i = 1 TO s: PRINT #1, 1: NEXT FOR i = 1 TO s: PRINT #1, 0: NEXT NEXT: NEXT: CLOSE
' 2.bas OPEN "2.txt" FOR OUTPUT AS #1 FOR k = 1 TO 100: FOR s = 1 TO 7 FOR d = 1 TO 2 ^ (7 - s) FOR i = 1 TO s: PRINT #1, 1: NEXT FOR i = 1 TO s: PRINT #1, 0: NEXT NEXT: NEXT: NEXT: CLOSE

Другие темы:
Учу EXCEL за 6 минутУчим C# Windows Forms зная Basic
Интеграл обманывает чужих и МЫ
Волны вероятности повышают надёжность