М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Памагиш
Памагиш
09.09.2020 10:15 •  Информатика

Подскажите по , . 1. используя символы * и ? запишите шаблон поиска следующей группы файлов и папок: 1. все файлы на диске с: 2. все файлы на диске b: с расширением .doc, .bmp 3. все файлы на диске d: с именем file 4. все файлы на диске d: имена, которых состоят из трех букв я так сделала: 1. c: \*.* 2.b: \*.doc,*.bmp 3. d: \file*.* 4. d: * верно? или все не так? ))

👇
Ответ:
kunicyna1805
kunicyna1805
09.09.2020
Практически все правильно. Но если вчитаться в условие 3-ей задачи, то нужно найти файлы с именем file, а ты ее указываешь * перед точкой, что является ошибкой, ведь у тебя указано четкое имя файла.
4,6(15 оценок)
Открыть все ответы
Ответ:
хотам3
хотам3
09.09.2020
Const dlin = 100;
var b:array[1..dlin,1..2] of integer;
      i,j,x:integer;
begin
writeln('Исходный массив:');
for i:=1 to dlin do
 begin
  b[i,1]:=random(800)+100;
  write(b[i,1],' ');
  b[i,2]:=b[i,1] mod 10 + b[i,1] div 100 + b[i,1] div 10 mod 10;
 end;
writeln;

for i:=1 to dlin-1 do
  for j:=dlin-1 downto i do
     if b[j,2]>b[j+1,2] then
     begin
      x:=b[j,2]; b[j,2]:=b[j+1,2]; b[j+1,2]:=x;
      x:=b[j,1]; b[j,1]:=b[j+1,1]; b[j+1,1]:=x;
     end;

writeln('Отсортированный массив:');
for i:=1 to dlin do
   write(b[i,1],' ');

end.
4,6(75 оценок)
Ответ:
BouhjrMans228
BouhjrMans228
09.09.2020
var
  i, k, N: word;               
  A, B: array[1..10000] of integer;

begin 
  write(' N = ');
  readln(N);
  writeln(' Введите массив из ', N, ' чисел: ');
  for i := 1 to N do
  begin
    read(a[i]); //Вводим i-й элемент массива.
    if a[i] mod 2 = 0 then //Если он четный,  
    begin
      inc(K); //то увеличиваем K на 1.
      b[K] := a[i] //Очередной элемент нового массива.  
    end
  end;
  writeln('Четные числа обратном порядке: ');
 { Выводим четные элементы массива в обратном порядке: }
  for i := K downto 1 do
    write(' ', b[i]);
  write(' K = ', K)
end.
4,5(97 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ