Файл прекрипите 1. Создать документ и установить файлу параметры страница
Поля верхнее: 2ем, 2 см, см, От края колонтитула - верхнего см, нижнего: 1 ем.
Задание 2.
номер практического занятия, шрифта -Times New Roman, размер - 10,
- номер группы, ФИО, дату создания документа с автоматическим
гарнитура - Tahoma, размер - 12, - по центру
по правому краю; гарнитура
Задание 3. Набрать текст по образцу (Приложение 1)
Заголовок документа расположена, по центру, гарнитура шрифта - Arial, размер шрифта 14, - утопленный, интервал - разряженный 3 пт, ниет - анто, полужирный, Первый абзац: гарнитура шрифта -Times New Roman, - по ширине, первой строки - па 1.25 см., междустрочный интервал - 1,5
Задание 4. Добавить таблицу,
Установить в таблице и до конца документа одинарный междустрочный интервал Первый столбец таблицы - применить заливку, изменить тип линий, цвет и направление шрифта, Применить к заголовкам таблицы выравнивание по центру ячейки,
Задание 5. Добавить в документ две колонки.
Установить и колонках одинарный междустрочный интервал, выравнивание - по ширине.
Задание 6. Вторую колонку оформить как маркированный список.
Тип маркера выбрать самостоятельно.
Задание 7. Добавить в документ автофигуру. её за таблицей.
Цвет запинки и границы выбрать самостоятельно
begin
If FontDialog.Execute then
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
RichEdit1.SetFocus;
End;
end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится
s,s1:string;
a,b:array[1..100]of integer;
i,n,x,k:integer;
begin
readln(s);
readln(s1);
n:=1;
if length(s)>length(s1) then
x:=length(s)
else x:=length(s1);
for i:=1 to length(s) do
begin
val(copy(s,i,1),k,n);
a[i+x-length(s)]:=k;
end;
for i:=1 to length(s1) do
begin
val(copy(s1,i,1),k,n);
b[i+x-length(s1)]:=k;
end;
for i:=1 to length(s) do
a[i]:=a[i]+b[i];
for i:=length(s) downto 2 do
begin
a[i-1]:=a[i-1]+a[i]div 10;
a[i]:=a[i]mod 10;
end;
for i:=1 to length(s) do
write(a[i]);
end.