===== PascalABC.NET =====
begin
var n := ReadlnInteger;
var a := ReadArrInteger(n);
var s1 := a[0::2].Sorted;
var s2 := a[1::2].SortedDescending;
var s3 := s1.Interleave(s2);
if n.IsOdd then
s3 := s3 + s1.Last;
a := s3.ToArray;
a.Println;
end.
640*272*1бит = 174080 бит / 8 = 21760 байт / 1024 = 21,25 Кб
Значение 3 показывает, что число трехзначное.
Чтобы записать тремя цифрами a, b, c минимальное число, надо расставить их по возрастанию.
Положим a=1 (меньше не бывает), тогда b+c=17-1 или b+c=16.
16 = 8+8 = 7+9.
Искомое число 179.
Ответ:
Мы присваиваем k значение полученное month