DIM n AS INTEGER, m AS INTEGER CLS INPUT "n,m=", n, m IF n < 3 THEN PRINT "n<3" SYSTEM END IF REDIM a(1 TO n, 1 TO m) AS INTEGER RANDOMIZE TIMER FOR i = 1 TO n FOR j = 1 TO m a(i, j) = INT(50 * RND) PRINT USING "###"; a(i, j); NEXT j PRINT NEXT i PRINT FOR i = 4 TO n FOR j = 1 TO m a(i - 1, j) = a(i, j) NEXT j NEXT i FOR i = 1 TO n - 1 FOR j = 1 TO m PRINT USING "###"; a(i, j); NEXT j PRINT NEXT i
Замечание Поскольку QBasic не поддерживает сохранение содержимого при изменении размеров динамического массива, для упрощения было решено не заниматься созданием вс массива, копирования в него всех строк, кроме последней, затем изменение размера исходного массива и обратное копирование в него. Просто считается, что n уменьшилось на 1.
I = K * i (I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
i = I / K
K = 32 * 512 = 16384 пикселей
I = 4 Kb = 4 * 1024 * 8 бит = 32768 бит
Глубина цвета
бит (округляем в меньшую сторону так, как тут могут быть только целые числа)
Кол-во цветов в палитре
цветов
ответ: 4