Проще всего через сервис/поиск решения
см. приложение
ответ: x=9.9
Сообщение "карандаш не красный" несет 2 бита информации, следовательно таких карандашей
. Значит красных карандашей 64-4=60
Var
f:boolean;
n:integer;
begin
f:=(n mod 2=0) and (n>=10) and (n<=99);
write (f);
end.
50(в 10)=110010 (в 2): делим 50 на 2 столбиком и записываем остаток в обратно порядке:
50/2=25 (ост. 0)
25/2=12 (ост 1)
12/2=6 (ост 0)
6/2=3 (ост 0)
3/2=1 (ост 1)
1/2=... (ост 1), переписываем в обратно порядке остатки
2^8=256
8 бит- каждый цвет в палитре