===== PascalABC.NET =====
begin
var x := ArrRandom(100, 1, 50);
x.Println;
Println('Минимальный элемент встречается',
x.Count(p -> p = x.Min), 'раз(а)')
end.
Если у обычных то 10-тиричная
526 в восьмеричной
156 в шестнадцатеричной
Sqr(5) sqr(stgx) sqr (y-1)
sqr возведение в квадрат в паскале
при n = 2:
по началу i равен одному, а S нулю. Далее i <= n, то есть 1 <= 2, ответ да. К S прибавляется i, и S будет равен одному. Еще к i прибавляется 2, и i становится тройкой. Возвращаемся к началу алгоритма, но с новыми значениями, i у нас равен трем, а S равен одному. Далее проверяется условие i <= n, то есть 3<=2. Ответ нет, и выводится ответ S. А S равен однерке.
Ответ: 1