Нужно решение на паскале. Алгоритм вычисления функции F(n), где n – целое неотрицательное число, задан следующими
соотношениями:
F(0) = 0,
F(n) = F(n / 2) + 3, когда n > 0 и делится на 2,
F(n) = 2·F(n – 1) + 1 , когда n > 0 и не делится на 2.
Сколько различных значений может принимать функция F(n) при n, принадлежащих отрезку [1;1000]?
Вот все что написал
var count, n:integer;
function F(n:integer): integer;
begin
if n=0 then F:=0 else
if (n>0) and (n mod 2 = 0) then F:=F(n div 2) + 3 else
F:=2*F(n-1) + 1;
end;
begin
count:=0;
(см. объяснение)
Объяснение:
Программа написана на языке PascalABC.NET:
##
function F(n: integer): integer;
begin
if(n=0) then F:= 0
else if((n>0) and (n mod 2 = 0)) then F:= F(n div 2)+3
else if((n>0) and (n mod 2 <> 0)) then F:= 2*F(n-1)+1;
end;
var a: array of integer;
setLength(a,0);
for var i: integer := 1 to 1000
do if(not a.contains(F(i))) then
begin
setLength(a,a.Length+1);
a[a.Length-1]:= F(i);
end;
print(a.Length);
Задание выполнено!