Скопируйте из папки Lexi файлы n, m, s (см. табл. 1.1) на Ваш носитель информации. Объедините тексты указанных файлов, получив новый объединенный документ. Задайте нумерацию страниц в этом документе (начальный номер-1). Вставьте нижние колонтитулы различных лекций следующий текст - ”Lexi1.doc” название файла первой лекции в разделе 1, и т.д. А верхний колонтитул номер вашего варианта, отцентрируйте колонтитулы и выделите жирным шрифтом. В документе расставьте стили, заголовки 1,2, 3 уровня для вставки оглавления. В начале объединенного документа создайте оглавление. (Оглавление добавляется например: с Вставка Ссылка Оглавление и указателиВкладка «Оглавление»). Или WORD 2013 через закладку СсылкиОглавление. Разделите весь текст (не включая оглавление) на 2 одинаковые колонки, расстояние между которыми указано в табл. 1.2. Перед оглавлением документа вставьте любой рисунок с изображением компьютера, размером 1,5см+0,1*N (где N номер вашего варианта). Сохраните созданный документ под именем согласно правилам, указанным выше в п.1 пр.: Контр_4_вар_N.doc.
Плагиа́т — умышленно совершаемое физическим лицом незаконное использование или распоряжение охраняемыми результатами чужого творческого труда, которое сопровождается доведением до других лиц ложных сведений о себе как о действительном авторе.
А́вторское пра́во — в объективном смысле — институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием (изданием, исполнением, показом и т. д.) произведений науки, литературы или искусства, то есть объективных результатов творческой деятельности людей в этих областях.
Однако в литературе есть такое явление: "Пойман - не вор". Или "Этот плагиат - кого надо плагиат".
problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
countOfAnswers, counter: integer;
userAnswer: String;
begin
countOfAnswers := 0;
for counter:=0 to 9 do
begin
write('Введите ответ уравнения ', problems[counter], ' : ');
readln(userAnswer);
if userAnswer = answers[counter] then Inc(countOfAnswers);
end;
if countOfAnswers > 8 then writeln('Отлично')
else if countOfAnswers > 5 then writeln('Хорошо')
else writeln('Плохо');
end.