16. Дополнительные элементы фирменного стиля: буклет, персонаж, спецодежда и пр. 17. Упаковка как элемент фирменного стиля.
18. Что такое шрифтовая композиция и фирменный шрифт?
19. Терминология. Классификация шрифтов.
20. В чем заключается основное различие шрифтов по начертании?
21. Назовите основные требования предъявляемые к работе над шрифтом в плакате.
22. В чем заключаются основные правила предъявляемые к тексту в рекламе?
23. Реклама в прессе. Особенности и специфика графические возмосности.
24. Перечислите какие правила создания баннерной рекламы вам известны?
25. Цвет и графика в наружной рекламе.
26. Какие требования предъявляются к оформлению книги?
27. Какова роль и назначение этикетки?
28. Что такое каллиграфия?
29. Назовите техники и инструменты для создания каллиграфической надписи.
30. Что такое дизайн? Истоки возникновения.

uses crt;

const raz=[' ','.',',','?','!'];{/разделители слов, можно добавить}

var s,sl:string;

   i,k:byte;

begin

clrscr;

writeln('Строка:');

readln(s);

writeln('Слово:');

readln(sl);

k:=0;

for i:=1 to length(s) do{идем по строке}

if(s[i]=sl[1])and((s[i-1] in raz)or(i=1)){если символ равен первому символу слова

а перед ним разделитель или начало строки}

and((s[i+length(sl)] in raz)or(i+length(sl)=length(s))){и после слова разделитетль или конец строки}

and(copy(s,i,length(sl))=sl){и все буквы на интервале равны слову}

then k:=k+1;{считаем}

write('Слово ',sl,' встречается ',k,' рз.');

readln

end.

Объяснение:

на каком языке? (В ответе паскаль)

uses crt;

const raz=[' ','.',',','?','!'];{/разделители слов, можно добавить}

var s,sl:string;

   i,k:byte;

begin

clrscr;

writeln('Строка:');

readln(s);

writeln('Слово:');

readln(sl);

k:=0;

for i:=1 to length(s) do{идем по строке}

if(s[i]=sl[1])and((s[i-1] in raz)or(i=1)){если символ равен первому символу слова

а перед ним разделитель или начало строки}

and((s[i+length(sl)] in raz)or(i+length(sl)=length(s))){и после слова разделитетль или конец строки}

and(copy(s,i,length(sl))=sl){и все буквы на интервале равны слову}

then k:=k+1;{считаем}

write('Слово ',sl,' встречается ',k,' рз.');

readln

end.

Объяснение:

на каком языке? (В ответе паскаль)