20 Мбайт = ? бит
1 Мбайт = 1024 Кбайт
1 Кбайт = 1024 байт
1 байт = 8 бит
Соответственно: 20*1024*1024*8=<span>167772160 бит</span>
Например, в маске *r*f* пять символов, ей удовлетворяют нужные имена файлов (<em>miste</em><em>r</em><em>_</em><em>f</em><em>ox</em>, <em>f</em><em>r</em><em>om_</em><em>f</em><em>oxford</em>), но не удовлетворяют ненужные (<em>brave_oxygen</em> – нет f, <em>magic_fox</em> – нет r).
Масок из меньшего количества символов, удовлетворяющих условию нет:
- Начальные символы <em>mister_fox</em> и <em>from_foxford</em> разные, так что маски должны начинаться с звездочек
- Аналогично, и заканчиваться они должны на звездочку. Таким образом, два символа маски известны
- Если в маске всего 3 символа, то неизвестный символ – символ, который должен быть в нужных словах, но которого не должно быть в ненужных. В обоих нужных словах есть символы m, r, _, f, o, x, но каждый из этих символов есть хотя бы в одном ненужном
- Если в маске 4 символа, то неизвестная пара символов – символы, стоящие подряд, которые есть в нужных словах и которых нет в ненужных. В нужных словах совпадают только пары символов, входящие в <em>_fox</em>, но этот же фрагмент входит и в magic_fox
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger('Вводите числа:',ReadInteger('N='))
.Where(x->Abs(x).Between(10,99)).Count)
end.
<u>Пример</u>
N= 5
Вводите числа: 23 -4 100 -42 16
3
begin
var k:=ReadInteger('K=');
Writeln(ReadSeqInteger('Вводите трехзначные числа:',ReadInteger('N='))
.Where(m->Abs((m mod 10)*(m div 100)*(m div 10 mod 10))=k).Count)
end.
<u>Пример</u>
K= 8
N= 10
Вводите трехзначные числа: 142 712 426 -222 318 916 107 932 -116 473
2
<span>Начинать нужно с козы. Крестьянин, перевезя козу, возвращается и берет волка, которого перевозит на другой берег, где его и оставляет, но зато берет и везет обратно на первый берег козу. Здесь он оставляет ее и перевозит к волку капусту. Вслед за тем, возвратившись, он перевозит козу. так вот</span>