Нужен проект по информатике qbasic коды с движущимся , если кто такое делал, то !

Screen  7 color 1, 2 for x = 1 to 200 step 10     pset (x, 50), 4     sleep 1     pset (x, 50), 2 next x endдвижение точки.без dosboxcolor 1, 2for x = 1 to 20    cls    locate 5, x    print "*"    sleep 1next xend

1) количество возможных событий равно двум. значит n=2, подставляем в формулу n=2^i,  i=1 бит.

2) находим значение информационной емкости одного символа. n=2^i, подставляя значение в формулу, получаем n=64, значит, i=6 бит-информационная емкость 1 символа, значит 5*6=30 бит.

3) i=8 бит=1 байту

(20*1024)/(32*64*1)= 10

рыжие и зеленоглазые - 2

рыжие или зеленоглазые - 6

рыжие и не зеленоглазые - 3

не рыжие и не зеленоглазые - 1