Volochaev
?>

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 папка должна уничтожаться также полностью автоматически

Информатика

Ответы

denbelousov963
//1. Переборный алгоритм Евклида (цикл repeat)

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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

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 папка должна уничтожаться также полностью автоматически
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Lolira64
vdm4275
Pavel_Olegovna1601
denisovatat7
iuv61
i7aster26
gorbunova188
valerii-borisovich550
Татьяна902
kirillboytsov403
мария Кузив1393
AleksandraRuslan504
КириллЕгорова1906
Андреевнатест707
Информатика и лучший ответ. ​
beglovatatiyana