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.

Answer 2

Конечно, вот решение задачи на Pascal:

pascalCopy code
program F_values;

function F(n: integer): integer;
begin
  if n <= 13 then
    F := n*n*n + n*n + 1
  else
  begin
    if (n mod 3 = 0) then
      F := F(n-1) + 2*n*n - 3
    else
      F := F(n-2) + 3*n + 6;
  end;
end;

function AllDigitsOdd(num: integer): boolean;
var
  digit: integer;
begin
  while num > 0 do
  begin
    digit := num mod 10;
    if digit mod 2 = 0 then
    begin
      AllDigitsOdd := false;
      exit;
    end;
    num := num div 10;
  end;
  AllDigitsOdd := true;
end;

var
  count, n: integer;
begin
  count := 0;
  for n := 1 to 1000 do
  begin
    if AllDigitsOdd(F(n)) then
      count := count + 1;
  end;
  writeln('Количество натуральных значений n из отрезка [1; 1000], для которых все цифры значения F(n) нечётные: ', count);
end.

Программа определяет значение функции F(n) в соответствии с заданными условиями. Затем проверяет, все ли цифры числа нечетные, и подсчитывает количество соответствующих значений n на отрезке [1; 1000].