осле того, как текст набран и проверен, желательно придать ему внешний вид, облегчающий восприятие написанного. Для этого различные смысловые части документа принято выделять шрифтами разных гарнитур (например, с засечками и без засечек) или разных начертаний (курсивного, полужирного), отступами, дополнительными межстрочными интервалами (отбивками) и другими
Например, заголовок документа желательно набрать более крупно и разместить его по центру страницы, подписи к рисункам оформить курсивом, а номера страниц разместить в правом нижнем углу каждой страницы.
Присвоение параметров оформления определённым частям документа принято называть форматированием.
Форматирование может быть жёстким или мягким. При жёстком форматировании каждой конкретной части документа — символу, слову, абзацу или странице задаются определённые параметры отображения. При этом форматирование никак не связано с логической структурой документа и объекты, логически относящиеся к одному типу, могут оказаться (и почти всегда оказываются, как показывает практика) оформленными по-разному. Например, одна из подписей к рисункам не будет выделена курсивом, в отличие от остальных.
При мягком форматировании описывается внешний вид не конкретного фрагмента текста, а логической части документа — заголовков, основного текста, сносок, колонтитулов, а для каждой конкретной части документа задаётся только её роль в документе: например, «подпись к рисунку». Описание оформления для определённой логической части документа принято называть стилем.
При использовании стилей необходимо логически разметить документ, т. е. обозначить его структуру. Отмечается, что в документе является заголовком, что основным текстом, а что другими элементами. При этом каждый элемент примет внешний вид в соответствии с тем стилем, который для него определён.
Использование логической разметки документа и мягкого форматирования облегчает работу с большими и сложными по структуре документами и позволяет автоматизировать многие этапы работы с текстом — автоматически создавать оглавления, легко перемещаться по большим документам, быстро изменять оформление и многое другое
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293
var
x, y, a, b, k: integer;
begin
k:=10000;
repeat
x:=k;
a := 0; b := 0; y := 1;
while x > 0 do
begin
if (x mod 10) mod 2 = 0
then
a := a * 10 + x mod 10
else begin
y := y * 10;
b := b * 10 + x mod 10
end;
x := x div 10
end;
a := a * y + b;
k := k + 1;
until a = 26391;
writeln(a:8, k-1:8);
end.