нужно Создайте командный файл, выполняющий проверку наличия файлов с заданнымрасширением (например, doc или txt) в заданной папке с условия exist вкоманде if.В качестве первого (обязательного) параметра должно быть задано имя папки (длятекущей папки задается символ "." Вторым (необязательным) параметром является опция/erase. Если она задана, файлы с заданным расширением (если они есть) удаляются изпапки.и.В начале выполнения выдается запрос на ввод расширения файла (без первогосимвола ".").Если файлы с заданным расширением в папке не найдены, выполнение командногофайла заканчивается и выдается сообщение «В папке имя-папки нет файлов срасширением расширение», в противном случае выдается список файлов с заданнымрасширением (с цепочки команд dir и findstr), а также общее количествофайлов в папке с заданным расширением. Если задано удаление файлов с заданнымрасширением, то после его окончания должно быть выведено сообщение «Файлы срасширением расширение в папке имя-папки удалены».
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
В! определте является ли слово "перевертышем" (читается слева направо одинаково справа налево)
Автор: Tatianamir765654
Переведите число 143, 511 из десятичной системы счисления в восьмеричную
Автор: ekaterinkat
Для заливки замкнутого контура используется процедура
Автор: info2471
Что такое фрагмент текста? какие действия с ним можно выполнять?
Автор: lestnica
begin
var lvl:=0;
var s:= '';
var predE:=false;
foreach var c in s do
if c='E' then begin
if predE then begin predE:=false; lvl+=1 end
else predE:=true
end
else
if c='B' then begin predE:=false; lvl+=1 end;
Writeln(lvl,' level')
end.
Результат выполнения программы
63 level
И второй вариант, "как не учат в школе":
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var s:= '';
Writeln(Regex.Matches(s,'E[EB]|B').Count,' Level')
end.
Результат выполнения аналогичный.