Объяснение:
Искусство орнамента очень древнее. Возникло оно в эпоху палеолита. Орнаментальные изображения доставляют эстетическое наслаждение, оказывающее сильное воздействие на человека, вызывают цепочки ассоциаций, позволяющие понимать и ценить произведение.Основной закономерностью орнамента является периодическая повторяемость мотива. Для орнамента характерны так же перевод реальных форм и предметов в условные орнаментальные изображения, высокая степень декоративного обобщения, отсутствие воздушной перспективы (плоское изображение).
Орнамент всегда широко применялся в качестве декоративного оформления изделий, необходимых людям в быту и практической деятельности. Он составляет основу декоративно-прикладного искусства. Без орнамента не обходятся в изделиях художественных промыслов, керамике, текстиле.
Все орнаментальные рисунки по их изобразительным возможностям подразделяют на три вида: орнамент изобразительный, включающий в себя конкретный рисунок человека, животных, растений, пейзажные или архитектурные мотивы, рисунок предметов неживой природы или сложную эмблему;
орнамент неизобразительный, образованный из геометрических элементов, абстрактных форм, лишенных конкретного предметного содержания;
орнамент комбинированный, представляющий собой сочетание изобразительных мотивов или отдельных элементов, с одной стороны, и абстрактных форм – с другой.
1) Пароль в этом коде - "zn4n1j4". Заменить при необходимости.
var
i: integer;
s: string;
begin
i := 1;
while i <= 5 do
begin
readln(s);
if s = 'zn4n1j4' then
begin
writeln('Вход в систему разрешен');
exit;
end;
writeln('Неверный пароль.');
end;
writeln('Пароль не был угадан 5 раз.');
end.
2) Используем операцию x mod 10 для получения последней цифры числа и x div 10 для "отбрасывания" последней цифры числа.
var
x, ans: integer;
begin
read(x);
ans := 0;
while x <> 0 do
begin
ans := ans + (x mod 10);
x := x div 10;
end;
writeln(ans);
end.
