Решить " изображение состоит из 128х128 точек(пикселей объем изображения - 4 кб. определить количество цветов в палитре"

I=K*i
N=2^i.
I=4*1024*8 K=128*128 => i=2.
N=2^2=4 

Автор

100 слов для студента

Абзац

100 слов для студента

Аудитория

100 слов для студента

100 слов для студента

Белорусский

100 слов для студента

Беседа

100 слов для студента

Беседовать

100 слов для студента

Библиотека

100 слов для студента

Брать

100 слов для студента

Будущий

100 слов для студента

Важный

100 слов для студента

Вариант

100 слов для студента

Ведомость

100 слов для студента

Век

100 слов для студента

Великий

100 слов для студента

Вернуть

100 слов для студента

Вести

100 слов для студента

Взять

100 слов для студента

Внимание

100 слов для студента

Вопрос

100 слов для студента

Время

100 слов для студента

Объяснение:

//PascalABC.NET 3.2 сборка 1318

//Вариант по формуле Бине

Var
  n,fibn:real;
  i:integer;
begin
readln(n);
if n<=0 then writeln('Не существует чисел Фиббоначи меньше 0')
else
  begin
  i:=0;
    while fibn<n do
      begin
        fibn:=(power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5);
        inc(i);
      end;
   writeln((power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5)-1);
     end;
 end.

//В лоб

Var
  sum,n,buf,fib0,fib1:integer;
 
 function fibb(fib0,fib1:integer):integer;
  begin
    result:=fib0+fib1;
  end;

begin
fib0:=0;
fib1:=1;
readln(n);
if n<=0 then
   writeln('Не существует чисел Фиббоначи меньше 0')
else
  begin
    if fibb(fib0,fib1)>=n then sum:=0 else
    begin
      while fibb(fib0,fib1)<n do
        begin
         buf:=fib1;
         fib1:=fibb(fib0,fib1);
         fib0:=buf;
        end;
      sum:=fibb(fib1,fibb(fib0,fib1))-1;
   end;
   writeln(sum);
  end;
end.

Пример ввода:
12
Пример вывода:
20