Если в паскале то
Program fhfhjhf;
var a , a1 :integer ;
begin
Writeln('апиши число');
Readln(a);
Writeln('Найдем число');
a1 = a*0.001;
If a1>100 then writeln('Конечно больше')
else Writeln('Конечно меньше');
Writeln('Не за что');
end.
А вот и нет. Монитор позволяет, а видеокарта может быть в режиме RGBA - Тогда 4 байта. А может быть в режиме 16 цветов, и т.д. ответ того челика не верный. Так что зависит не от монитора, а от видео режима, установленного ОС.
4 Кб = 4*1024*8 = 32768 бита
433*433 = 187489 пикселей
187489/32768 ≈ 5 бит на 1 пискель2
2^5 = 32
Ответ: 32 цвета
===== PascalABC.NET =====
begin
var (x, y) := ReadReal2('Введите X, Y:');
if (x * x + y * y <= 9) and (x * x + y * y >= 4) and
(x <= 0) and (y >= 0) or
(x * x + y * y <= 4) and (x >= 0) and (y <= 0) then
Writeln('Да')
else
Writeln('Нет')
end.