Сколько цветов содержит рисунок размером 100*150 пиксел и объемом 29, 3 кб

15000 пикселей; 29,3 кбайт=29,3*1024=30000 байт; 30000 / 15000=2 бита на пиксел;   закодировать 4 цвета. я думаю так 

15000 пикселей; 29,3 кбайт=29,3*1024=30000 байт; 30000 / 15000=2 бита на пиксел; 2 битами можно закодировать 4 цвета.

Нужно добавить компонент "savedialog" из вкладки "dialogs" сначала: ) потом примерно такой код: procedure tform1.formcreate(sender: tobject); var savef: textfile; begin     if (savedialog1.execute) then     begin         assignfile(savef, savedialog1.filename);         rewrite(savef);         write(savef, memo1.text);         closefile(savef);     end; end;

Var a: array[0..10] of integer;     i, j, k: integer; begin       for i : = 0 to 10 do       begin           a[i] : = random(90) - 45;           writeln('[', i, '] => ', a[i]);       end;       for i : = 0 to 10 do           if (a[i] < 0) then inc(j)              else if (a[i] > 0) then inc(k);       writeln(j, ' ', k); end.работает у меня: )