1. Внутри папки "Документы" текущего пользователя создать папку по формату ФамилияИО_НомерГруппы (на латинском алфавите); 2. Внутри папки, созданной в предыдущем пункте создать ещё три папки, задав имя по номеру зачетки, присоединив к нему цифры 1, 2 и 3, соответственно;
3. В первую папку скопировать из папки c:\windows все файлы, в имени которых встречается буква e (латинская) в любой позиции. Именно в имени, файлы, в которых буква e присутствует только в расширении - НЕ копировать;
4. Во вторую папку из папки c:\windows\inf скопировать все файлы, имя которых начинается на usb, а вторая буква в расширении - n;
5. В третьей папке создать два текстовых файла (расширение .txt), имена задать по текущей дате, добавив к первому первую букву фамилии, а ко второму - первую букву имени на латинском алфавите;
6. Первый файл должен содержать Вашу фамилию, второй - имя и отчество полностью на русском языке;
7. Создать в третьей папке ещё один файл с именем complete.txt, в котором соединить содержимое двух файлов, созданных в предыдущем пункте и время запуска команд;
8. Удалить папку ФамилияИО_НомерГруппы со всем содержимым.
Все команды поместить в файл ФамилияИО_НомерГруппы.cmd
Команду, выполняющую п. 8 закомментировать с ключевого слова rem
Запуск данного файла, помещенного на Рабочий стол текущего пользователя должен выполнять все перечисленные действия автоматически, без участия пользователя, независимо от количества запусков
Информация должна быть читаема, "кракозябры" недопустимы
После раскомментирования команды в п. 8 папка должна уничтожаться также полностью автоматически
var a, b, с: integer;
begin
write('Введите два числа: ');
readln(a, b);
if a < b then с := a + 1 else с := b + 1;
repeat с := с - 1
until (a mod с = 0) and (b mod с = 0);
write('NOD = ', с)
end.
//2. Алгоритм с вычитанием (цикл while)
var a, b: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
while a <> b do
if a > b then
a := a - b
else
b := b - a;
writeln('NOD = ', a);
end.