Отправлено: 18.02.21 15:15. Заголовок: егэ16-№49

Здравствуйте! {49) Алгоритм вычисления функции F(n) задан следующими соотношениями:
F(n) = n при n ≤ 3;
F(n) = 2 • n + F(n – 1) при чётных n > 3;
F(n) = n • n + F(n – 2) при нечётных n > 3;
Определите количество натуральных значений n из отрезка [1; 100], при которых значение F(n) кратно 3.
}
Программа:
function f(n:integer):biginteger;
begin
if n<=3 then result:=1;
if (n>3)and(n mod 2=0)then result:=2*n+f(n-1);
if (n>3)and(n mod 2<>0)then result:=n*n+f(n-2);
end;
var
s,k,i:integer;
begin
k:=0;
for i:=1 to 100 do if f(i)mod 3=0 then k+=1;
println(k);
end.
Программа выдаёт ответ 33, а в сборнике ответ 32. Программу также сделал через массив. Тоже ответ 33. На питоне тоже ответ 33. Что не так делаю???

 Отправлено: 18.02.21 15:26. Заголовок: У Вас в коде if n..

У Вас в коде if n<=3 then result:=1;
А в условии F(n) = n при n ≤ 3;
Поменяйте 1 на n

 Отправлено: 18.02.21 16:22. Заголовок: nikson , спасибо, гл..

nikson , спасибо, глупая ошибка...