function IsPrime(Self: integer): boolean; extensionmethod;
// является ли число простым ?
begin
if Self < 4 then Result := True
else
begin
var found := (Self mod 2 = 0);
var p := 3;
while (not found) and (sqr(p) <= Self) do
begin
found := (Self mod p = 0);
p += 2
end;
Result := not found
end
end;
begin
var (m, n) := ReadInteger2('Введите m и n:');
Range(m, n).Where(t -> not t.IsPrime).Println
end.
Глубина цвета - длина двоичного кода, который используется для кодирования цвета пикселя. Измеряется в битах. Количество N цветов в палитре и глубина i цвета связаны между собой соотношением: N = 2^i.
В палитре 32 цвета, следовательно, 32 =2^i, где i=5 бит.
Пространственное разрешение монитора - это количество пикселей, из которых складывается изображение на его экране. Оно определяется как произведение количества точек в строке на количество строк изображения.
Разрешение монитора 512*256 означает, что изображение на его экране будет состоять из 256(2⁸) строк, каждая из которых содержит 512(2⁹) пикселей.
Всё перемножаем: 2⁸*2⁹*5 = 5*2¹⁷бит = 5*2¹⁴байт = 5*2⁴Кбайт = 5*16 Кбайт = 80 Кбайт
Справка: 1 байт = 8 бит = 2³ бит; 1 Кбайт = 1024 байта = 2¹⁰ байт = 2¹³ бит
Ну а If - это вообще не цикл.