Задание_4. Скопируйте из папки Lexi файлы n, m, s на Ваш носитель информации. Объедините тексты указанных файлов, получив новый объединенный документ. Задайте нумерацию страниц в этом документе (начальный номер-1). Вставьте нижние колонтитулы различных лекций следующий текст - ”Lexi1.doc” название файла первой лекции в разделе 1, и т.д. А верхний колонтитул номер вашего варианта, отцентрируйте колонтитулы и выделите жирным шрифтом. В документе расставьте стили, заголовки 1,2, 3 уровня для вставки оглавления. В начале объединенного документа создайте оглавление. (Оглавление добавляется например: с Вставка Ссылка Оглавление и указателиВкладка «Оглавление»). Или WORD 2013 через закладку СсылкиОглавление. Разделите весь текст (не включая оглавление) на 2 одинаковые колонки, расстояние между которыми указано в табл. 1.2. Перед оглавлением документа вставьте любой рисунок с изображением компьютера, размером 1,5см+0,1*N (где N номер вашего варианта). Сохраните созданный документ под именем согласно правилам, указанным выше в п.1 пр.: Контр_4_вар_N.doc.
program dimavdovuskin497;
type t1 = integer;
t2 = double;
var n, i: t1;
x, summa, pr: t2;
begin
writeln('Напишите программу, вычисляющую: а) сумму n первых натуральных четных чисел; б) произведение n первых натуральных нечетных чисел.');
writeln;
write('Введите общее количество чисел: ');
readln(n);
writeln;
summa := 0;
pr := 1;
for i := 1 to n do
begin
write('Введите х: ');
readln(x);
writeln;
if (frac(x) = 0) then
begin
if (frac(x/2) = 0) then summa := summa + x
else pr := pr * x;
end;
end;
writeln('Сумма n первых натуральных четных чисел равна ', summa : 5 : 0);
writeln;
writeln('Произведение n первых натуральных нечетных чисел равно', pr : 5 : 0);
readln;
end.
Правила организации личной информации в сети Интернет
старайтесь не заполнять анкеты данных в неизвестных чатах, социальных сетях,
не оставляйте встреченным в Интернете людям свой номер телефона, домашний адрес,
не отправляйте неизвестным людям свои фотографии,
общайтесь в программах Skype и им подобным только с друзьями,
не открывайте прикрепленные к письму файлы, полученные от незнакомых людей,
не разглашайте информацию о своем пароле
Правила безопасности в сети Интернет
не договаривайтесь о встрече с незнакомцами,
не отвечайте на недоброжелательные сообщения,
выходите из чата, если чье-то сообщение вызывает беспокойство,
будьте внимательны при загрузке бесплатных программ на компьютер,
если вы получили оскорбляющее сообщение, сообщение о нем родителям,
не поддавайтесь на заманчивые предложения,
не посещайте сайты для взрослых
Правила сетевого этикета
старайтесь выглядеть достойно в глазах собеседников,
пишите грамотно,
человек, с которым вы общаетесь, может быть не один,
сдерживайте страсти,
будьте терпимы к недостаткам окружающих