Сделать,и написать решения.​

В Windows полное имя файла на локальном диске начинается с имени диска (тут всё начинается с E:), затем идут названия папок в порядке вложенности, затем имя файла - имя и расширение, отделенные точкой. Все части отделяются друг от друга обратной чертой \. Можно также думать, что есть полное имя папки, а полное имя файла - это полное имя папки + имя файла.

1) Файлы видеозапись.avi, график.xls, мелодия.mp3 и презентация.ppt находятся прямо в корневой папке диска - в структуре к ним идет линия непосредственно от имени диска. Их полные имена выглядят так:

E:\видеозапись.avi

E:\график.xls

E:\мелодия.mp3

E:\презентация.ppt

2) На диске есть папка ТЕКСТЫ, её полное имя E:\ТЕКСТЫ. В ней лежат файлы буквы.txt и Онегин.doc. Полные имена:

E:\ТЕКСТЫ\буквы.txt

E:\ТЕКСТЫ\Онегин.doc

3) Папка ИЗОБРАЖЕНИЯ лежит на диске E:, её адрес E:\ИЗОБРАЖЕНИЯ.

Непосредственно в ней лежит пайл аквариум.bmp, его полное имя

E:\ИЗОБРАЖЕНИЯ\аквариум.bmp

Также в этой папке есть подпапка ФОТО (E:\ИЗОБРАЖЕНИЯ\ФОТО). В ней два файла Бия.jpeg и Катунь.jpeg. Полные имена:

E:\ИЗОБРАЖЕНИЯ\ФОТО\Бия.jpeg

E:\ИЗОБРАЖЕНИЯ\ФОТО\Катунь.jpeg

var a:integer;

begin

a:=1;

while a<=20 do

begin

if a mod 2 = 0

then

write(a,' ');

a:=a+1;

end;

end.var a:integer;

begin

a:=1;

while a<=20 do

begin

if a mod 2 = 0

then

write(a,' ');

a:=a+1;

end;

end.

Это от 1 до 20,дальше незню

Объяснение: