altemirovap0cn54
08.06.2022 08:21

Выполните поиск информации или файлов и в каждом задании вставьте скриншот(ы) результата выполнения задания. 1. Найдите на локальном диске D все файлы с расширением *.doc
2. Найдите на компьютере все текстовые документы.
3. Найдите на компьютере файл C:\Program Files\Windows Media Player\Skins\Revert.wmz
4. Найдите на компьютере все файлы созданные ровно неделю назад.
5. Найти файлы, созданные за последние три дня. Записать их количество
6. Осуществить поиск файлов, имя которых начинается на букву «а». Записать количество найденных файлов.
7. Осуществить поиск файлов, имя которых содержит букву «а». Записать количество найденных файлов.
8. Осуществить поиск файлов, размер которых меньше чем 100 Кб. Записать количество найденных файлов.
9. Найдите на компьютере самый большой по размеру файл.
10. Найдите на локальном диске D все скрытые файлы.
11. Найдите на компьютере все файлы, которые содержат слово «редактор».
12. Найдите в данном документе все слова «Найдите».
13. Подсчитайте количество букв «а» в этом документе.
14. Найдите в локальной сети колледжа компьютер с именем SERVER-SPU.
15. Найдите в локальной сети кабинета документ Архивация.txt

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Mashalove16
07.08.2021 01:58
Var s:string;
n,k,i:integer;
begin
for n:=1 to 2 do
 begin
 writeln('Введите строку ',n,':');
 readln(s);
 k:=0;
 for i:=1 to length(s) do
  begin
  case s[i] of
   '[': k:=k+1;
   ']': k:=k-1;
   end;
  end;
 if k=0 
 then writeln('В строке ',s,' количество [ и ] одинаково')
 else writeln('В строке ',s,' количество [ и ] не одинаково');
 end;
end.

Пример:
Введите строку 1:
c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c
В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково
Введите строку 2:
Просто [ пример ]] со [[ скобками
В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково
0,0(0 оценок)
Ответ:
Нэтэли11
17.08.2022 14:00
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var a:=ReadLines('m17.txt').JoinIntoString.ToIntegers;
  a.Println;
  var b:=a.Select((x,i)->Rec(x,i)).Where(x->x.Item1<0)
    .Select(x->x.Item2).ToArray;
  if b.Count<>2 then
    Writeln('Количество отрицательных элементов не равно двум')
  else begin
    a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1))
      .Concat(SeqFill(a.Length-b[1]-1,0)).ToArray;
    a.Println
    end
end.

Тестовое решение:
23 14 7 15 0 13 -6 41 18 13 8 42 27 -11 3 19 10
0 0 0 0 0 0 -6 41 18 13 8 42 27 -11 0 0 0

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