<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(3,9,1,3,5,8,5,3,6,7,6,5,4,6,1,81); a.Println;
a.IndexesOf(t->t=a.Min).Select(t->t+1).Println
end.
<u>Результат</u>
3 9 1 3 5 8 5 3 6 7 6 5 4 6 1 81
3 15
Не може
то му що якщо в 1 буде одне то в 2 буде 7 .
7+1 = 8
а повинно 7
2³³ бит = 8589934592 бит = 1073741824 байт = 1048576 кбайт = 1024 мбайт
1024 / 1.4 ≈ 731.4
Значит для хранения информации о яйцеклетке требуется 732 дискеты.
1.25*28=35 мбайт после шифрования. Это 140\% от исходного объёма.
35\140*100=25.
Ответ: 25 мбайт.
Решения находятся в приложениях.
Красным цветом показаны результаты выполнения алгоритмов.