===== PascalABC.NET =====
begin
var n := ReadInteger('Длина последовательности:');
ReadSeqInteger('Вводи:', n).SortedDescending.Println
end.
Ответ:
int func(const int X) {
if (X <= 3) {
return (X * X - 3 * X + 9);
}
else if (X > 3) {
return 1 / (double)(X * X + 6);
}
}
Объяснение:
Если i больше 0 делаем
1) i:= i(=5) - 1 = 5-1= 4
2) s:= 0+4(получилось в 1 действии)= 4
i больше 0, повторяем процедуру
1) i:= i(=4 из 1-ого решения) - 1 = 4-1= 3
2) s:= 4( из 1-ого решения) +3= 7
И еще раз
1) i:= i(=3 из 2-ого решения) - 1 = 3-1= 2
2) s:= 7( из 2-ого решения) +2= 7 + 2 = 9
Снова
1) i:= i(=2 из 3-ого решения) - 1 = 2-1= 1
2) s:= 9( из 3-ого решения) +1= 9+1 = 10
И еще
1) i:= i(=1 из 4-ого решения) - 1 = 1-1= 0
2) s:= 10( из 4-ого решения) +0= 10+0 = 10
Так как i= 0, а не больше 0, то алгоритм закончен
S= 10
16МБ=128000000бит
4мин=240сек
128000000:240примерно 533333бит/с
<span>2/ точек по вертикали и горизонтали</span>
()()()()()()()()()()()()()()()()