1. Оглавление обновление
2. 3 главы новый лист переходы на новый лист
3. Глава 1 работа с текстом
1) первый вид
Текст шрифт тай монс размер 14 цвет черный нью роман курсив расположение по левому краю отступы везде 0 межстрочный интервал
2) второй вид шрифт ариал размер 6,5 цвет зелёный двойное волнистое красное подчеркивание расположение по центру отступы до и после 2 междустрочный интервал 2 первая строка отступ 2,5 остальное 0
3) третий вид шрифт монтай курсив размер 15 цвет красный полужирный курсив расположение по правому краю отступы до и после первой строка отступ 2 остальные 1 межстрочный интервал 1 все буквы заглавные количество текста в каждом пункте минимум 3 обзатца по 3 строки
Глава 2 таблица и списки оформления на альбомном листе 2 списка маркированный и нумерованный таблица объединенная и разьединеная ячейка разное положение текстов в ячейке
Направление текста разные границы шапка стр. Зелёная
Глава 3
Картинки лист книжный 3 пункта
1) формулы вставка сборочной формулы
2)фигуры из фигур составляем блок схему с ветвлением объединяем в единое целое
3) картинки вставить картинку и показать разное оптекание текста
Поля узкие номера страниц снизу по центру границы листа в документе не должен быть лишних пробелов обзатцов и т.п
{Файл 1.txt необходимо создать }
n,i,j,c1:integer;
a:array[1..100] of integer;
f:text;
begin
{чтение данных с файла 1.txt}
assign(f,'1.txt'); reset(f);
i:=0;
while not eof(f) do
begin
i:=i+1;
read(f,a[i]);
end;
n:=i;
close(f);
{Сортировка}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
c1:=a[j];
a[j]:=a[i];
a[i]:=c1;
end;
{вывод в файл 2.txt отсортированного массива}
assign(f,'2.txt'); rewrite(f);
for i:=1 to n do
write(f,a[i]:5);
close(f);
end.
var
f:Text;
n,nmax,nmin:integer;
begin
Assign(f,'input.txt'); Reset(f);
nmax:=-32786; nmin:=32767; {границы представления integer}
while not Eof(f) do begin
Readln(f,n);
if (n>0) and (n mod 2=0) then
if nmax<n then nmax:=n
else
if nmin>n then nmin:=n
end;
Close(f);
Assign(f,'output.txt'); Rewrite(f);
Writeln(f,nmin,' ',nmax);
Close(f)
end.
Задача 2.
const
m=100; { максимальное количество чисел в файле }
var
f:Text;
i,j,n,k:integer;
a:array[1..m] of integer;
begin
{ читаем данные из файла в массив }
Assign(f,'input.txt'); Reset(f);
i:=0;
while not Eof(f) do begin Inc(i); Readln(f,a[i]) end;
Close(f);
n:=i;
{ сортируем массив по возрастанию методом пузырька }
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin k := a[j]; a[j] := a[j+1]; a[j+1] := k end;
{ заполняем файл из массива }
Assign(f,'output.txt'); Rewrite(f);
for i:=1 to n do Writeln(f,a[i]);
Close(f)
end.
Вложение: пример файла input.txt