ЗАДАНИЕ №1 Скачайте текст из интернета. Создайте файл ПР_№3_ФИО_Группа.doc\ Произведите форматирование на примере текста. Во втором абзаце произведите следующие изменения, используя различные возможности форматирования (требования к форматированию указаны в скобках): Вводимые символы (Times New Roman, 14,К) появляются в том месте экрана (Arial, 12,красный, зачеркнутый), где находится курсор,( Arial Narrow,10,подчеркнутый) который сдвигается вправо,(Times New Roman,12, надстрочный) оставляя за собой цепочку символов.(Times New Roman,12, подстрочный) При достижении правого поля страницы (Times New Roman,10, подчеркнутый, Ж, темно-красный, малые прописные, разреженный на 0,25пт) курсор автоматически перемещается в следующую строку. ( Monotype Corsiva,заливка цветом - желтый, 12) ЭТОТ ПРОЦЕСС НАЗЫВАЕТСЯ (Arial Unicode MS, 12, Ж, все прописные) Перетеканием Текста (Times New Roman, 12,К,красный,начинать с прописных), а нажатие на клавишу (Comic Sans MS, 20) Enter (Times New Roman,12, интервал –разреженный на 2пт, смещение каждого знака вниз на 3пт,относительно предыдущего) создает новый абзац,( Times New Roman,12, интервал уплотненный на 1,5 пт) а не новую строку.(Times New Roman,12, двойное зачеркивание, утопленный)
ЗАДАНИЕ №3 Вставьте в документ номера страниц: Вставка-Номер страницы- Вверху страницы- Страница X из Y- Полужирные-с номера 3.
ЗАДАНИЕ №4
Вставьте в документ колонтитулы: Вставка- Нижний колонтитул- Консервативный В колонтитуле укажите фамилию автора и наименование документа
у тебя условие
If(k>9) or (k<14) then
условие k > 9 выполняется, а значит и все выражение верно
Нужно заменить "OR" на "AND" оператор "И".
[ 1 and 1 = 1 ] при всех остальных - ложь
Вот код
var
k: integer;
begin
readln(k);
if k > 17 then
Writeln('ваша оценка 5. Молодец!');
if (k > 13) and (k < 18) then
Writeln('ваша оценка 4.');
if(k > 9) and (k < 14) then
Writeln('ваша оценка 3.');
if k < 10 then
Writeln('ваша оценка 2.');
end.