<h3>// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
if ReadInteger('Введите x:').IsOdd then Print('Это нечетное число')
else Print('Это четное число')
end.
Чтобы задать восемь цветов, необходимо 3 бита (2³=8). То есть на каждую точку экрана требуется 3 бита видеопамяти.
Всего точек будет 640*350 = 224000
Умножим на 3 бита и получим 672000 бит или 84000 байт.
Умножим на количество страниц: 84000 * 3 = 252000 байт
#include <iostream>
using namespace std;
int main()
{
int n,s;
for (int i=100; i<=999; i++)
{
n = i % 10;
s = n*n*n;
n = i / 10 % 10;
s = s+n*n*n;
n = i /100;
s = s+n*n*n;
if (i == s) cout << i << "\n";
}
return 0;
}
Результат:
<span>153
370
371
407</span>
16777216 цветов можно закодировать 24 битами данных, т.к 2^24=<span>16777216
следовательно 1024*768*24=</span>18874368 бит = 2359296 байт (т.к. в 1 байте 8 бит) = 2304 Кбайт (делим на 1024) = 2,25 мегабайта
Все переводим в меньшие единицы измерения
128 000 бит = 16 000 байт
5 мбайт = 5 242 880 байт
t = 5 242 880/16 000=327.68 сек = 5 мин