1: для групповых операций с файлами используются маски имён файлов. маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которых также могут встречаться следующие символы: символ «? » (вопросительный знак) означает ровно один произвольный символ. символ «*» (звёздочка) означает любую последовательность символов произвольной длины, в том числе «*» может задавать и пустую последовательность. определите, какое из указанных имён файлов удовлетворяет маске: ? еll* 1) yello.w 2) bell.с 3) yellow.color 4) 2ell.12

4) 2ell.12 Остальное не подходит. У меня 5 по информатике

У нас сказано, что можно использовать в алфавите цифры, десять знаков препинания и 16 букв алфавита(если сразу считать в 2 регистрах).

10 + 10 + 16 = 36

N = 36

i = 6

i = 5 мы взять не можем, потому что тогда мы не сможем закодировать все символы.

Не столь точно сказано в задаче, сколько должно быть знаков в пароле, сказано только то, что их должно быть не более 16, но тогда ведь мы можем и 1 взять, странно это, поэтому лучше взять пароль, имеющий 16 знаков.

16 * 5 = 80 бит = 10 байт - 1 пароль

704 * 10 = 7040 Байт на 704 пароля.

ответ: 7040 байт

Var i, n, k, sum:integer ;

A:array [1..100]of Integer ;

Begin

//Запрашиваем кол-во элементов массива

Write (' N=') ;read (n) ;

//Заполняем массив случайными значениями от 0 до 25

// И выводим его на экран

For i:=1 to N do begin

A[i]:=random(26);

Writeln (' A[', i, ']=', a[i]) ;

End;

//Обнуляем переменные

K:=0;sum:=0;

//В цикле находим элементы, которые больше 8

//и меньше 13,считаем их кол-во и сумму

For i:=1 to N do begin

If((a[i]>8) and(a[i]<13)) then begin

K:=k+1;

Sum:=sum+a[i];

End;

End;

//Ввводим результат на экран

Writeln(' Кол-во элементов больше 8 и меньше 13:',k);

Writeln(' Их сумма ', sum) ;

End.

Объяснение:

Строчки с двумя слешами в программу можешь не писать, это я сделал, для объяснения программы