В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Julianne11
Julianne11
24.08.2020 10:51 •  Информатика

Нужна Создайте командный файл, выполняющий проверку наличия файлов с заданным
расширением (например, doc или txt) в заданной папке с условия exist в
команде if.
В качестве первого (обязательного) параметра должно быть задано имя папки (для
текущей папки задается символ "."). Вторым (необязательным) параметром является опция
/erase. Если она задана, файлы с заданным расширением (если они есть) удаляются из
папки.
и.
В начале выполнения выдается запрос на ввод расширения файла (без первого
символа ".").
Если файлы с заданным расширением в папке не найдены, выполнение командного
файла заканчивается и выдается сообщение «В папке имя-папки нет файлов с
расширением расширение», в противном случае выдается список файлов с заданным
расширением (с цепочки команд dir и findstr), а также общее количество
файлов в папке с заданным расширением. Если задано удаление файлов с заданным
расширением, то после его окончания должно быть выведено сообщение «Файлы с
расширением расширение в папке имя-папки удалены».

Показать ответ
Ответ:
Мегамозг0511
Мегамозг0511
14.12.2021 06:42
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  var a:=s.ToWords('.').Select(t->Trim(t)).ToArray;
  var b:=s.ToWords(Arr('.',' '))
      .GroupBy(t->t).Select(t->(t.Key,t.Count))
      .Where(t->t[1]>1).Select(t->t[0]).ToArray;
  a.Cartesian(b,(p,q)->p.Contains(q)?p:'')
      .Where(t->t.Length>0).Distinct.PrintLines
end.

Примеры
Мама мыла полы. Маша ела кашу. Даша пила молоко. Таня мыла полы.
Мама мыла полы
Таня мыла полы

Мама мыла раму. Маша ела кашу. Даша пила молоко. Таня мыла полы.
Мама мыла раму
Таня мыла полы
0,0(0 оценок)
Ответ:
школьник812
школьник812
14.12.2021 06:42

Объяснение:

Задание 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018

Внимание! Если программа не работает, обновите версию!

begin

 var s:=ReadlnString;

 var a:=s.ToWords('.').Select(t->Trim(t)).ToArray;

 var b:=s.ToWords(Arr('.',' '))

     .GroupBy(t->t).Select(t->(t.Key,t.Count))

     .Where(t->t[1]>1).Select(t->t[0]).ToArray;

 a.Cartesian(b,(p,q)->p.Contains(q)?p:'')

     .Where(t->t.Length>0).Distinct.PrintLines

end.

Примеры

Мама мыла полы. Маша ела кашу. Даша пила молоко. Таня мыла полы.

Мама мыла полы

Таня мыла полы

Мама мыла раму.

Маша ела кашу. Даша пила молоко. Таня мыла полы.

Мама мыла рамуТаня мыла полы

Задание 2

uses crt;

var n,i,k:integer;

begin

repeat

write('Введите натуральное число >0 n=');

read(n);

until n>0;

if n=1 then write('Простых множителей нет')

else

begin

 write(n,'=');

 i:=2;

 while i<=n do

  begin

   k:=0;

   while n mod i=0 do

    begin

     k:=k+1;

     n:=n div i;

    end;

   if i<n then

    begin

     if k=1 then write(i,'*')

     else if k>1 then write(i,'^',k,'*');

    end

   else

    begin

     if k=1 then write(i)

     else if k>1 then write(i,'^',k);

    end;

   i:=i+1;

  end;

end;

end.

Задание 3

   var n,m,i:integer;

   function fact(j:integer):longint;

   begin

   if j=1 then fact:=1 else fact:=j*fact(j-1);

   end;

   begin

   readln(m,n);

   for i:=m to n do if i mod 2 =0 then write(fact(i),' ');

   writeln;

   end.

Задание 4

program SomeProgram;

var i,n,summ:integer;

a:array[1..150] of integer;

begin

readln(n); {ввод размерности массива}

for i:=1 to n do readln(a[i]); {ввод массива}

summ:=0; {обнулим сумму на всякий случай}

for i:=1 to n do {собственно поиск суммы}

if a[i]=i then {коли номер элемента равен элементу, то...}

summ:=summ+a[i]; {...прибавить к сумме значение элемента}

Writeln('Сумма:',summ);

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота