Напишите программные коды на языке Паскаль для решения задания. Вычислите значение функции z (x, y)= (x+π)/(y+π). Значение переменных x и y задайте самостоятельно путем ввода с клавиатуры

Форматирование абзацев

Форматирование часто применяется по отношению к абзацу.

Абзац — фрагмент текста, процесс ввода которого закончился нажатием на клавишу ввода Enter. Абзац является ключевым элементом в структуре документа для многих текстовых процессоров (хотя имеются и другие, например, в Microsoft Word — разделы).

Операции форматирования абзацев включают установку границ абзацев и абзацных отступов, выравнивание, а также включение переноса слов.

Установку границ абзацев производят с маркеров отступов, находящихся на координатной линейке, или соответствующими командами меню.

Выравнивание (выключка). Различают четыре вида горизонтального (влево, вправо, по центру, по ширине) и три вида вертикального выравнивания (вверх, вниз, по высоте).

Перенос. При выключенном режиме автоматического переноса слово, не поместившееся на строке, полностью переносится на следующую строку. Это не придаст элегантности тексту; его правый край остается неровным. Для улучшения внешнего вида текста используют режим переноса. При ручном варианте переноса пользователь сам определяет место переноса, вводя дефис, и жестким переводом каретки (нажатием на клавишу Enter) переходит на следующую строку. Использование такого режима переноса приводит к необходимости удаления дефисов при повторном форматировании текста документа.

При включенном режиме автоматического переноса реализуется мягкий вариант переноса: текстовый процессор сам делит слово на слот и переносит его наилучшим Этот режим не создает никаких трудностей при повторном форматировании.

Uses Crt;
Var a,b,i,tek,sum10,sum3:integer;
Procedure TroichSS (te:integer; var sum3:integer);
var m:array[1..10]of integer;
    k,j,su3:integer;
begin
    write(te:4);
    repeat
        inc(k); m[k]:=te mod 3; te:=te div 3;
    until te<3;
    inc(k); m[k]:=te mod 3;
    for j:=k downto 1 do
        begin su3:=su3+m[j]; write(m[j]:3) end;
    write(' su3=',su3);
    sum3:=su3; su3:=0; k:=0;
end;
Procedure DesiatSS (te:integer; var sum10:integer);
var m:array[1..10]of integer;
    k,j,su10:integer;
begin
    write(te:4);
    repeat
        inc(k); m[k]:=te mod 10; te:=te div 10;
    until te<10;
    inc(k); m[k]:=te mod 10;
    for j:=k downto 1 do
        begin su10:=su10+m[j]; write(m[j]:3); end;
    writeln(' su10=',su10);
    sum10:=su10; su10:=0; k:=0;
end;
Begin
//Задание интервала [a; b]
    a:=1; b:=1000;
    writeln('Интервале [a; b]',a:4,b:4);
//Сумма цифр троичных и десятичных чисел
    for i:=a to b do
    begin
        TroichSS(i,sum3); DesiatSS(i,sum10);
        if sum3=sum10 then
            begin writeln('Э в р и к а!'); delay(5000); end;
    end;
    writeln('К о н е ц.');
End.

ответ: 39