Построй дерево каталогов. Даны полные имена файлов.

C:\Работа\Образование\Экономика. doc
C:\Работа\Отчёты\Год. xls
C:\Работа\Отчёты\Указания. txt

Вы забыли вставить фотографию каталога. Но, я уже встречал такое задание. Вот ответы:

Папка "Работа" соответствует папке под цифрой 1;

Папка "Образование" соответствует цифре 2;

Папка "Отчёты" соответствует цифре 3;

Файл "Экономика.doc" соответствует цифре 4;

Файл "Год.xls" соответствует цифре 5;

Файл "Указания.txt" соответствует цифре 6;

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

периметр треугольника равняется сумме длин всех трех его сторон. он вычисляется по формуле p=a+b+c, в которой a, b и c – это стороны фигуры.