№1 пусть в палитре 16 цветов найти глубину цвета (информационный объем одного пикселя), изображенного с данной палитры. №3 пусть в палитре 32 цвета найти информационный объем рисунка 20*15 пикселей

1. 16*24=384 или 16*32=521 2. 20*15=300пикселей. 300*32=9600 9600*24=230400 или 9600*32=307200

1. var k, l, m, n: integer; begin     readln(k,l,m,n);     if (k+l+m+n mod 2 = 0) then     writeln('поля одного цвета')   else     writeln('поля разных цветов') end. 2. uses crt; {в зависимости от компилятора эта строчка может оказаться лишней} var question, answer: integer; begin   randomize();   question : = random(100);   writeln(question);   readln(answer);   if (question+answer=100) then     writeln('not bad')   else     writeln('oops. right answer is ', 100-question) end.

  function simpl(n: integer): boolean; var i,k: integer; begin     i: =2;     k: =round(sqrt(n));     while ((n mod i)< > 0) and (i< =k) do         i: =i+1;       simpl: =(i> k) end; { основная программа } var i,k,n,m: integer; begin   readln(k,n);   m: =0;   for i: =k to n do   if simpl(i) and simpl(i*2+1) then   begin     write(i,' ');     m: =1;   end;   if m=0 then writeln(0); end.10 100 11 23 29 41 53 83 8912 20 0