Значение переменного равно 8 так как это корень
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger('Введите 35 целых чисел:',35);
a.OrderBy(x->x).Println.Reverse.Println
end.
<u>Пример</u>
Введите 35 целых чисел: 57 -31 -77 38 -22 39 -49 -85 22 46 -48 -5 46 -50 67 86 31 -90 -29 37 60 -89 31 -19 -31 -46 81 -56 -34 -33 -33 -59 -88 -25 83
-90 -89 -88 -85 -77 -59 -56 -50 -49 -48 -46 -34 -33 -33 -31 -31 -29 -25 -22 -19 -5 22 31 31 37 38 39 46 46 57 60 67 81 83 86
86 83 81 67 60 57 46 46 39 38 37 31 31 22 -5 -19 -22 -25 -29 -31 -31 -33 -33 -34 -46 -48 -49 -50 -56 -59 -77 -85 -88 -89 -90
Если нужен алгоритм для системы "Кумир", то вот он:
использовать Чертежник
алг
нач
цел n,i,x,y
поднять перо
сместиться в точку (-2,-2)
нц для n от 0 до 3
нц для i от 1 до 4
выбор
при i=1: x:=0; y:=2
при i=2: x:=2; y:=0
при i=3: x:=0; y:=-2
при i=4: x:=-2; y:=0
все
опустить перо
сместиться на вектор (x,y)
поднять перо
сместиться на вектор (x*n,y*n)
опустить перо
сместиться на вектор (x,y)
кц
поднять перо
сместиться на вектор (-1,-1)
кц
кон
Наверно библиотека, 10 букв.