Составьте программы построения изображений. Что могут обозначать эти изображения

значит так, используем единственную в информатике формулу

n=2^i

n-это количество символов в алфавите, значит n=64

64 это 2 в 6 степени, значит i=6 - это информационный объем одного символа, а нам надо найти информационный объем 3072 символа, значит

6*3072 = 18432 бита = 2304 байта

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}

найдём общее количество пикселей:

450*600=270000

переведём объём в биты:

150кб=1228800б

найдёт сколько бит в одном пикселе:

1228800/270000=4б/пикс

теперь найдём сколько нужно цветов:

2^k=4 значит к=2

ответ: 2 цвета.

program cikl;

var a,b,c,i,j,k: integer;

begin

writeln('bbedute a,b,c');

readln(a,b,c);

i: =a;

j: =b;

k: =c;

a: =j;

b: =k;

c: =i;

writeln('a=',a,'b=',b,'c=',c);

readln

end.