Хоть что то ! примеры имен файлов, которые удовлетворяют шаблон имен: а) * .c; б) boo? .tmp; в) rt bas; г) sd *. *; д) b * t.t? p; е) abc *; есть) ab.c *; ж) * ае? а * .срр; с) ? ? abc.? ; и) * a? . * b (дз) запишите шаблон для поиска файлов, имена которых содержат букву s. 6. запишите шаблон для поиска файлов, имена которых: а) name, а расширение имени файла произвольное; б) начинаются с буквы t и имеют последний символ имени букву k; в) свободные, а расширение имени файла имеет только один символ; г) начинаются с буквы n и имеют в расширении имени файла предпоследнюю букву o; д) (дз) содержат в имени файла слово и расширение имени файла doc; е) (дз) содержат три символа, начинаются с буквы g и имеют в расширении имени файла два произвольных символа; ж) (дз) имеют последнюю букву в имени w и в расширении имени файла из трех символов среднюю букву t.

Правило чтобы решить все ваши простое -знак * означает любые символы, любое их количество, хоть одинаковые, хоть разные. знак ? - означает один любой символ.  имя файла -это то, что написано до точки слева -длина можетбыть произвольной. расширение файла -все, что написано после точки. -обычно не более 3 знаков всего.

ответ:

757.7₁₀ = 1365.546₈

объяснение:

перевод целой части числа из десятичной в восьмеричную систему счисления:

делим целую часть на 8, из ответа забираем остаток от деления. далее повторяем, пока не получится число меньше 8. остатки от деления записываем с конца

757 : 8 = 94 (остаток 5)

94 : 8 = 11 (ост. 6)

11 : 8 = 1 (ост. 3)

1 : 8 = 0 (ост. 1)

757₁₀ = 1365₈

перевод дробной части числа из десятичной в восьмеричную систему счисления:

умножаем дробную часть на 8, из ответа забираем целую часть, далее повторяем.

0.7 * 8 = 5.6

0.6 * 8 = 4.8

0.8 * 8 = 6.4

здесь можно продолжать бесконечно

757.7₁₀ = 1365.546₈

ответ:

program loto;

var

  l: array [1..50] of integer;

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

  i, j, n: integer;

  b: boolean;

begin

  for i : = low (l) to high (l) do

    l [i] : = i;

  randomize;

  for i : = 1 to 3 do begin

    repeat

      n : = random (51) + 1;

    until l[n] < > 0;

    a [i] : = l [n];

    l [n] : = 0;

  end;

  for i : = 1 to 3 do

    write (a [i], ' ');

  readln;

end

объяснение:

сделана проверка чтобы 3 числа не совпадали друг с другом