# второй вариант функции

второй вариант функции Rec (в прямоугольнике повторяется часть, выделенная курсивом в первом варианте функции). Function Rec(k,Sum:integer):comp; var i:integer;Ans:comp; begin if k=2N+1 then if Sum=0 then Rec:=1 else Rec:=0 else if Matr[k,Sum]&lt;&gt;-1 then Rec:=Matr[k,Sum] else begin Matr[k,Sum]:=Ans; end; end; Сокращение времени перебора трудно оценить аналитически. Однако понимания можно добиться, рассматривая, например, вопрос о том, сколько раз мы обращаемся в нашем примере к элементу Matr[3,6] после его первого вычисления. Остался еще один непоясненный момент. Нам необходимо считать счастливые числа не во всем интервале от 00...0 до 99...9, а в его части - от некоторого числа A до числа B. Он решается путем введения дополнительного параметра в рекурсивную схему - логической переменной, фиксирующей факт совпадения рассматриваемого числа с заданным. о96_4 Решение задачи в “лоб” - перебор, безнадежно. Так, при n=2 ответом является число 105263157894736842.

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа