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