Question

Помогите с решением задачи на Pascal)

Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими соотношениями:
F(n) = n*n*n + n*n + 1, при n ≤ 13
F(n) = F(n-1) + 2*n*n - 3, при n > 13, кратных 3
F(n) = F(n-2) + 3*n + 6, при n > 13, не кратных 3
Определите количество натуральных значений n из отрезка [1; 1000], для которых все цифры значения F(n) нечётные.

Answer 1

Ответ:

14

function F(n: integer):integer;

begin

if n<=13 then F := n*n*n + n*n + 1

else

if n mod 3 = 0 then F := F(n-1) + 2*n*n - 3

else F := F(n-2) + 3*n + 6

end;

var i,k,n: integer;

begin

for i:=1 to 1000 do

begin

n:=F(i);

while n>0 do

begin

if n mod 10 mod 2 = 0 then break

else n:= n div 10;

if n=0 then k:=k+1

end

end;

writeln(k)

end.