ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";
ПЕР
число: ЦЕЛ;
УКАЗ
число := Приём.Число();
ЕСЛИ число = 0 ТО Вывод.Цепь("^Ноль.") ИНАЧЕ
ЕСЛИ число < 0 ТО Вывод.Цепь("^Отрицательное ")
ИНАЧЕ Вывод.Цепь("^Положительное ") КОН;
ЕСЛИ ЧЕТ(число) ТО Вывод.Цепь("чётное число.")
ИНАЧЕ Вывод.Цепь("нечётное число.") КОН
КОН
КОН Задание.
Б может быть только в конце, т.к. там не точек
Число в адресе не может быть больше 255, поэтому сочетания АГ, ГВ и АВ недопустимы. Ответ: ВГАБ.
Я так понял, что это творческое задание. Так подойди к этому творчески :)
Я не совсем понял, какое тебе описание нужно, но я так понял, что информация, написанная на визитке.
Самыми крупными буквами принято печатать имя и фамилию владельца, а должность – немного меньшими. Лучше использовать максимум 3 разных цвета и размера шрифта.
Далее прежде всего соблюдать логичность текстовых конструкций. Информационная часть, например имена, номера телефонов, название компании, логотип и т.д., должна располагаться не ближе чем в 5 мм от края макета. Важно сделать так, чтобы фон или фоновый рисунок обязательно выходил за границу важных элементов на всю площадь макета визитки и покрывал все пространство. Также необходимо правильно выбирать стиль, цветовую гамму и схему расположения элементов.
Прикрепил пример.
На паскале :
program task;
var s:byte;
begin
read(s);
case s of
1: writeln('1-2 уровень');
2: writeln('3-4 уровень');
3: writeln('5-6 уровень');
4: writeln('7-8 уровень');
5: writeln('9-10 уровень');
end;
end.