Для хранения растрового изображения размером 421421 пикселей отвели 32 kb памяти какова максимально возможное число цветов в палитре изображения?

4

Объяснение:

Дано:                                  Формулы:

V=32 Кбайт                       V=(H*W*C)/2^13

H=421 пикселей               N=2^C

W=421 пикселей           переделаем C=(V*2^13)/H*W

N=? цветов

А теперь подставим:

C=(32*2^13)/421*421=2

N=2^2=4 цвета

var

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

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.

блок смемы не умею

var i: integer

s,n: real;

begin

  repeat

      read(n);

      if n> 0 then s: =s+n

  until n=0;

  writeln(s);

end.

var a,s: real;

i: integer;

begin

  read(a);

  repeat

      i: =i+1;

      s: =s+1/i

  until s> a;

  writeln(i,s);

end.