1. Пользователь находился в каталоге Расписание. Сначала он поднялся на один уровень вверх, затем спустился на один уровень вниз, потом ещё раз спустился на один уровень вниз. В результате он оказался в каталоге С:\учёба\математика\ГИА.
Укажите полный путь каталога, с которым пользователь начинал работу.
2. Пользователь находился в каталоге Расписание. Сначала он поднялся на один уровень вверх, затем спустился на один уровень вниз, потом ещё раз спустился на один уровень вниз и ещё раз спустился на один уровень вниз. В результате он оказался в каталоге
С:\учёба\информатика\ГИА.
Укажите полный путь каталога, с которым пользователь начинал работу.
3. В некотором каталоге хранится файл Вьюга.doc. В этом каталоге создали подкаталог Январь и файл Вьюга.doc переместили в созданный подкаталог. Полное имя файла стало D:\2013\Зима\Январь\Вьюга.doc. Укажите полное имя файла до перемещения.
4. В некотором каталоге хранился файл Сирень.doc, имевший полное имя D:\2013\Лето\Сирень.doc. В этом каталоге создали подкаталог Июнь и файл Сирень.doc переместили в созданный подкаталог. Укажите полное имя этого файла после перемещения.
5. В каталоге Май хранился файл Сценарий.doc. Позже этот каталог перенесли в каталог Готово, расположенный в корне диска С. Укажите полное имя этого файла после перемещения.
6. Марина Иванова, работая над проектом по литературе, создала следующие файлы:
D:\Литература\Проект\Есенин.bmp
D:\Учёба\Работа\Писатели.doc
D:\Учёба\Работа\Поэты.doc
D:\Литература\Проект\Пушкин. bmp
D:\Литература\Проект\Стихотворения.doc
Укажите полное имя папки, которая останется пустой при удалении всех файлов с расширением .doc. Считайте, что других файлов и папок на диске D нет.
Код программы:
function isSevenHere(number : integer) : boolean;var digit : integer;begin Result := true; while (number > 0) do begin digit := number mod 10; if (digit = 7) then exit; number := number div 10; end; Result := false;end;
var i,k :integer;begin write('Введите k: '); readln(k);
for i := 1 to k do if (isSevenHere(i) = true) then write(i,' ');end.
uses GraphABC;
begin
var xc:=300;
var yc:=250;
var r:=150;
var dx:=Trunc(r*cos(Pi/3));
var dy:=Trunc(r*sin(Pi/3));
Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
(xc-dx,yc+dy),(xc+dx,yc+dy));
r:=r-10;
dx:=Trunc(r*cos(Pi/3));
dy:=Trunc(r*sin(Pi/3));
Pen.Color:=clRed;
Brush.Color:=Pen.Color;
Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
(xc-dx,yc+dy),(xc+dx,yc+dy));
Font.Color:=clWhite;
Font.Size:=50;
Font.Style:=fsBold;
SetCoordinateOrigin(xc-90,yc-40);
Write('STOP');
end.