ЭТО ПРОГРАММА КУБЭСИК
Перепишите команды.
Выделите ошибки в командах
(поясните, что неверно):
1. CIRCLE (204,480)/40, 16, 0, 0, 2
2. CIBCLE (244,482): 140, 10, 2*3.14, 3.14/2, 2/1
3. CIRCLE (4, 40 ),40, 1, , , 2/40
4. CIBCLE (24,482); 10, 10, 2*3.14, 3.14/2, 10/3
5. CIRCLE (204, 80), 90, 16, 3.14/2, 0
6. CIRCLE (350, 492), 140, 100, 2*3.14, 3.14/2, 20/140
7. CIRCLE (65, 80): 40, , 0, 3.14, 8/40
8. CIRCLE (240,42), 85,3/2*3.14 , , 3.14/2, 85/10
9. CILCLE (4, 40 ),40,20, , , 20/40
10. CIRCLE (50, 80), 10, 15, 2*3.14, 3.14/2,

Последний день перед Рождеством Зимняя, ясная ночь наступила. Глянули звезды. Месяц величаво поднялся на небо посветить добрым людям и всему миру, чтобы всем было весело колядовать... (Н. В. Гоголь. Вечера на хуторе близ Диканьки)

239 символів включаючи пробіли між словами, знаки пунктуації і букви. Якщо в 8 бітному кодуванню то кожен символ кодується 8 бітами(або 1 байтом)
239*8=1912біт=239байт (щоб перейти від біт до байт треба просто поділити на 8, тому що 1 байт має 8 біт)

Якщо в 16 бітному(або 2 байтовому) то
239*16=3824біт=478байт

Программа шифровки:
DATA "ауоыэяюёие"
DATA "бвгджзклмнпрстфхцчшщ"
DATA "ъйь"
DIM s10 AS STRING, s20 AS STRING, s3 AS STRING
DIM i AS INTEGER
DIM s AS STRING, t AS STRING
CLS
READ s10, s20, s3
RANDOMIZE TIMER
INPUT "Введите фразу: ", s
t = ""
FOR i = 1 TO LEN(s)
   t = t + MID$(s, i, 1)
   t = t + MID$(s10, INT(10 * RND + 1), 1)
   t = t + MID$(s20, INT(20 * RND + 1), 1)
   t = t + MID$(s3, INT(3 * RND + 1), 1)
NEXT i
PRINT t
END

Программа дешифровки:
DIM s AS STRING, t AS STRING, i AS INTEGER
CLS
INPUT "Введите фразу: ", s
t = ""
FOR i = 1 TO LEN(s) STEP 4
   t = t + MID$(s, i, 1)
NEXT i
PRINT t
END