Отправлено: 22.02.22 11:50. Заголовок: 4884

Алгоритм вычисления значения функции F(n), где n – целое неотрицательное число, задан следующими соотношениями:

F(n) = 1 при n ≤ 1
F(n) = 2·F(n - 1) + F(n - 2) если n > 1 и n кратно 3
F(n) = 3·F(n - 2) + F(n - 1) в остальных случаях

Сколько существует значений n на отрезке [1, 35], для которых сумма цифр значения функции F(n) является простым числом?

Что не так в решении?
function f(n:integer):integer;
Begin
if n<=1 then f:=1;
if (n>1) and (n mod 3=0) then f:=2*f(n-1)+f(n-2);
if (n>1) and (n mod 3<>0) then f:=3*f(n-2)+f(n-1);
end;
var n,x,s,k,m,i:integer;
begin
for n:=1 to 35 do
begin
x:=f(n);
s:=0;
while x<>0 do
begin
s:=s+x mod 10;
x:=x div 10;
end;
k:=0;
for i:=2 to s-1 do
if s mod i=0 then k:=k+1;
writeln(k);
If k=0 then m:=m+1;
end;
writeln(m);
end.

 Отправлено: 22.02.22 13:51. Заголовок: Советую выводить кро..

Советую выводить кроме количества делителей еще значения функции для каждого n. Возможно, тогда поймете свою ошибку.