Program prog; function Search(n: integer): integer; var input: array[1..4] of integer; even: array[1..4] of integer; atLestOne: boolean; begin input[1] := n div 1000; input[2] := n mod 1000 div 100; input[3] := n mod 100 div 10; input[4] := n mod 10; if (input[1] mod 2 = 0) begin even[1] := input[1]; atLestOne := True; end; if (input[2] mod 2 = 0) begin even[2] := input[2]; atLestOne := True; end; if (input[3] mod 2 = 0) begin even[3] := input[3]; atLestOne := True; end; if (input[4] mod 2 = 0) begin even[4] := input[4]; atLestOne := True; end; if atLestOne = True then Search := Low(even) else Search := -1; end;
1. Маркированный и нумерованный, это основа. Впрочем, есть ещё выпадающий в Calc и .. ещё какие-нибудь в базах данных...
2. Вкладка ''Позиция'' (диалоговое окно ''Нумерация и маркеры'') или Вкладка "Параметры" (диалоговое окно ''Нумерация и маркеры'')
3. Написать 1. или * или что-то ещё. Подробнее последние абзацы: https://help.libreoffice.org/Writer/Creating_Numbered_or_Bulleted_Lists_as_You_Type/ru
function Search(n: integer): integer;
var
input: array[1..4] of integer;
even: array[1..4] of integer;
atLestOne: boolean;
begin
input[1] := n div 1000;
input[2] := n mod 1000 div 100;
input[3] := n mod 100 div 10;
input[4] := n mod 10;
if (input[1] mod 2 = 0)
begin
even[1] := input[1];
atLestOne := True;
end;
if (input[2] mod 2 = 0)
begin
even[2] := input[2];
atLestOne := True;
end;
if (input[3] mod 2 = 0)
begin
even[3] := input[3];
atLestOne := True;
end;
if (input[4] mod 2 = 0)
begin
even[4] := input[4];
atLestOne := True;
end;
if atLestOne = True then
Search := Low(even)
else
Search := -1;
end;
2. Вкладка ''Позиция'' (диалоговое окно ''Нумерация и маркеры'') или Вкладка "Параметры" (диалоговое окно ''Нумерация и маркеры'')
3. Написать 1. или * или что-то ещё. Подробнее последние абзацы:
https://help.libreoffice.org/Writer/Creating_Numbered_or_Bulleted_Lists_as_You_Type/ru
4. Формат - Маркеры и нумерация . Откройте вкладку Параметры
Подробнее: https://help.libreoffice.org/Common/Options_1/ru