Var x,y:integer;
begin
readln (x);
y:=2*Power(x,2) +3;
writeln (y);
end.
N деленное на 3 в степени n-1 и все в квадрате
K=256x128=2^8*2^7=2^15 пикс.;
I=16=2^4 КБ = 2^4*2^10*2^3 = 2^17 бит
i=k/I=2^17/2^15=2^2 бит = 4 бита на пиксель.
N=2^i=2^4= 16
Ответ: 16 цветов в палитре.
2 раза выведет
будет выведено -10-9 (причем слитно)
Var
N, i, max: shortint;
arr: array[1..50] of shortint;
v: string;
begin
v := ' NO';
max := -(MaxSmallInt);
readln(N);
for i := 1 to N do
begin
read(arr[i]);
if arr[i] > max then max := arr[i];
if arr[i] = 0 then v := ' YES';
end;
writeln(max, v);
end.