1. Почему следует предерживатся единого стиля при создании текстового документа? 2. Что такое шаблон дакумента.
3. Приведите примеры,когда форма
текстового документа очень вожна.
4. Каки шрифты и начертания лучше использовать для заголовков,основного текста выделенный в основном тексте?
5.как работать со списками ?
6. Чем маркированный список отделается от нумерованного?
7. Что такое многоуровневый список?
8. Как добавить в текстовый документ рисунок,формулу,гиперссылки?
9. Приведите пример, когда для представления информации удобнее воспользоваться таблицей.

uses CRT;

type mas=array[1..20,1..20] of integer;

var a,b,c,m,n,i,j,max,kol:integer;

    D:mas;

Begin

     clrscr;

     write ('Введите размер матрицы: ');

     readln (n);

     write ('Введите диапазон чисел: ');

     readln (a,b);

     Randomize;

     For i:=1 to n do

      Begin

        For j:=1 to n do

            Begin

                 D[i,j]:=random(b-a)+a;

                 write (D[i,j]:4);

            End;

            writeln;

     End;

     For i:=1 to n do

       For j:=1 to n do

           Begin

                If (D[i,j] mod 5)=0 then

                   If max<D[i,j] then

                      Begin

                           max:=D[i,j];

                      End;

           End;

     kol:=0;

     For i:=1 to n do

       For j:=1 to n do

           Begin

                If max<D[i,j] then

                   Begin

                        kol:=kol+1;

                   End;

           End;

     writeln ('Макс число кратное 5= ',max);

     writeln ('Количество чисел больших макс= ',kol);

 

readln;

End.

 

// PascalABC.NET 3.0, сборка 1164 от 11.02.2016
function gcd(a,b:integer):integer;
// Нахождение НОД
var
  i: longint;
begin
  while b <> 0 do begin
    a := a mod b;
    i := b; b := a; a := i
    end;
  Result:=a
end;

begin
  var a:=ReadInteger('a=');
  var b:=ReadInteger('b=');
  var nod:=gcd(a,b);
  if nod>1 then
    WritelnFormat('Дробь сократима: {0}/{1}={2}/{3}',
    a,b,a div nod,b div nod)
  else WritelnFormat('Дробь {0}/{1} несократима',a,b)
end.

Тестовое решение:
a= 23541
b= 335160
Дробь сократима: 23541/335160=59/840