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

128 * 128 = 16384 пикселей

16 Кбайт = 10384 байт = 131072 бит

131072 / 16384 = 8 бит на пиксель

8² = 64

var

n: integer;

begin

readln(n);

if (n mod 10)=(n div 100) then

writeln('палиндром')

else

writeln('не палиндром');

end.

var

i: integer;

a: array[1..20] of integer;

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.