1) Сурет түсін өңдеуде RGB қисықтарын қалай қолданамыз? 2) Photo-Brush-та берілген әсерлер суреттің сапасын өзгертуге қаншалықты ықпал етеді?
3) Эффект (Әсер) тақтасында орналасқан әсерлердің күшті және әлсіз жақтары жайлы не айта аласың?

1)деловая бумага; 2)подтверждает факт или право

х = log₂ n;

х = log₂ 12 бит.

var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.