X=432
Пример на VBA Excel
Код программы можно посмотреть нажав Alt+F11
Пусть количество страниц равно k. Так как в палитре 16 цветов, то каждая точка несет 4 бита информации (2^4 = 16). V = 256Кб = 262144 байт = 2097152 бит - объем видеопамяти. Пусть S - размер изображения. AxB - разрешающая способность, A * B <= S.
Тогда размер возможного изображения на экране будет вычисляться по формуле: S = V / (k * 4)
k = 1 => S = 524288 бит. Варианты разрешающей способности: 960x520; 640x480; 960x480
k = 2 => S = 262144 бит. Варианты разрешающей способности: 480x480; 320x480; 640x320
k = 4 => S = 131072 бит. Варианты разрешающей способности: 320x320; 240x320; 480x240
Такое число для 3 разрядных чисел одно, это 512
Sub amstrong()
ctroka = 2
For i = 100 To 999
N1 = i \ 100
N2 = (i - 100 * N1) \ 10
N3 = i - 100 * N1 - 10 * N2
If (N1 + N2 + N3) ^ 3 = i Then
Cells(ctroka, 2) = i
ctroka = ctroka + 1
End If
Next i
<span>End Sub</span>