Для хранения растрового изображения размером 189×189 пикселей отвели 8 КБ памяти. Каково максимально возможное число цветов в палитре изображения?

Pascal

Оператор ветвления (условный оператор) IF
 
 If (условие) then
  Блок, выполняющийся, если условие верно
 else
 Блок, выполняющийся если условие не верно

Сокращенная форма (else может отцутствовать)
if (условие) then
 Блок, выполняющийся, если условие верно

Если условие одно то запись имеет вид
 if a >b then...
Если условий несколько, то они берутся в скобки
and (выполняются все); or (выполняется хоть одно)
1 - верно 0 - неверно
( 1 and 1 = 1; 1 and 0 = 0)   
(1 or 1 =1; 1 or 0 = 1;  0 or 0 = 0)
 if (a>b) and (a > 0) then

Если блок да/нет содержит несколько операторов, то они беруться в операторные скобки
 if a > b then
  writeln (a)    // 1)
 
if a > b then
 begin
  writeln (a); // 1)
  b := a + b; // 2)
 end;

if a > b then
 begin
  writeln (a); // 1)
  b := a + b; // 2)
 end
else
 begin
  writeln (b); //1)
  a := a + b; //2)
 end;

Надеюсь алгоритм автомата обьяснять не надо

Таблица из чего что получается при пробеге от 100 до 999
[189, 917]
[890, 917]
[898, 1717]
[981, 917]
[989, 1717]

Общее кол-во / Статистика
{1717=>2, 173=>0, 179=>0, 1719=>0, 1917=>0, 917=>3, 317=>0, 111=>0}

Решается аналитически путем подбора числа из которого мог бы получится желаемый результат.
Заметим что максимальная сума двух разрядов 9+9=18 , что сразу отметает 1-73, 1-79, 17-19, 1-917 (другие разбиения противоречат п.2)
1-11 - получается средний разряд = 0, а последний = 11 > 9
3-17 - получается 17 = 9+8, а 3 < 8