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

F(n) = 0 при n = 0

F(n) = F(n/2) – 1 при n > 0 для чётных n

F(n) = 3 + F(n–1) при n > 0 для нечётных n

Сколько различных значений может принимать функция F(n) для чисел n, меньших 1000?

Function IsPrime(n: Longint): Boolean;
var i, sqrtn, delta: Word;
begin
  if (n >= 5) and ((n - 1) mod 6 = 0) or ((n + 1) mod 6 = 0) then begin
    i := 5;
    delta := 2;
    sqrtn := Trunc(sqrt(n));
    IsPrime := False;
    while i <= sqrtn do begin
      if n mod i = 0 then Exit;
      Inc(i, delta);
      delta := delta xor 6; {смена шага, то 2, то 4}
    end;
    IsPrime := True;
  end else
    IsPrime := (n = 2) or (n = 3);
end;
Var A,B,i : Integer;
Begin
  Readln(A,B);
  For i:=A to B do If IsPrime(i) then Writeln(i);
end.

Компьютерные технологии сегодня широко используются во всех областях человеческой деятельности. Знание предмета и основ информатики имеет большое значение в наши дни. Изучить информатику, в принципе, сможет любой желающий. Просто у кого-то это займёт меньше времени и сил, а у кого-то больше.

Поставьте для себя конкретные цели, которых вы хотите достичь, изучая информатику. Прежде всего, сделайте акцент на основные понятия и процессы. Когда вы оссвоите азы, обучение не будет требовать больших усилий.