Для групповых операций с файлами используются маски имен файлов. маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов. также в маске может встречаться символ *, который обозначает любую (в том числе пустую) последовательность символов, и символ ? , который обозначает один любой символ. если задана маска *a*l, то ей удовлетворяют файлы с названиями basketball, ball, и не удовлетворяют файлы с названием fox, shark. придумайте маску имени файла, которой бы удовлетворяли имена файлов mister_fox и from_foxford, но не удовлетворяли бы имена файлов brave_oxygen и magic_fox. найдите самую короткую такую маску (состоящую из наименьшего количества символов). в качестве ответа запишите ее длину.
program HelloWorld;
function ez(a: longint): boolean; var c: integer; begin ez := a >= 2; for c := 2 to trunc(sqrt(a)) do if a mod c = 0 then ez := false end; var i, k: integer; num: array [1 .. 100] of integer;
begin for i := 0 to 99 do num[i+1] := i + 1; k := 0; i := 1; while k < 7 do begin if ez(num[i]) = true then k := k + 1; i := i + 2; end; write(num[i-2]); end.
ответ 19