Небольшая компания, состоящая из трех подразделений, недавно установила по одной линии во всех подразделениях. Над одним проектом работают четыре сотрудника первого отдела. У каждого из них свой объем работ, поэтому они занимаются подготовкой документов для соответствующих частей проекта. Однако они позволили другим участникам проекта иметь общий доступ к своим жестким дискам. По мере роста проекта всем придется готовить все больше и больше документов, Таким образом, возникает вопрос, кому принадлежит какой документ и кто в последний раз вносил изменения в эти документы. Кроме того, очевидно, что сотрудники других отделов, заинтересованных в этом проекте, захотят ознакомиться с готовыми материалами.
1. Назовите хотя бы одну причину, по которой сложно ответить на вопрос, кому какой документ принадлежит.
2. Предоставьте услугу, которая может обеспечить централизованный контроль доступа к этим документам.
3. Опишите изменения, которые ваш бизнес принесет в пользовательскую среду.

египтяне не писали гласных. египетский язык относится к группам языков, где корень слова состоит из согласных, гласные не вписываются. использовались три вида знаков: словесные (один иероглиф - одно слово), фонетических (сродни сорвеменному алфавиту), детерминативов (иероглиф в конце слова изменял его смысл).

итог - гласные звуки в письме не использовались.

var x1, x2, x3, y1, y2, y3, p: real;

function len(x1, y1, x2, y2: real): real; begin len : = sqrt(sqr(x2 - x1) + sqr(y2 - y1)); end;

begin readln(x1, y1, x2, y2, x3, y3); p : = len(x1, y1, x2, y2) + len(x1, y1, x3, y3) + len(x2, y2, x3, y3); writeln(p: 8: 3); end.

строку наоборот?

var s: string;

i: integer;

begin

  read(s);

  for i: = length(s) downto 1 do

        s1: = s1+s[i];

  writeln(s1);

end.

var a: array[1..2,1..30] of integer; i,j: integer; begin      for i: = 1 to 30 do begin            writeln('введите номер ученика: ');             read(a[1,i]);             writeln('введите оценку: ');             read(a[2,i]);       end;             for i: = 1 to 10 do begin        writeln(i: 2,' - ');             for j: = 1 to 30              if a[1,j]=i then                        write(a[2,i],' ');       end;                   readkey; end.