Определить сколько членов последовательности с номерами 1,2,4,8,16,.. имеют значение

[Kat9]

Дано a1=0.01;ak=sin(k+ak-1), k=2,...,100. Определить сколько членов последовательности с номерами 1,2,4,8,16,.. имеют значение , меньшее , чем 0,25.

[ViktorR]

Например так

var ak : real;
  k, n : integer;
     m : byte;
begin
 ak := 0.01;
  m := 2;
  n := 0;
 for k := 2 to 100 do
 begin
   ak := sin(k + ak);  {к + 1 -ый член последовательности}
   if ((k AND m) = k) then {номер = 2, 4, 8, ...}
   begin
      m := m shl 1;  {следующий номер}
      if (ak < 0.25) then {подсчитаем}
         n := n + 1;
   end;
 end;
   writeln('n = ', n : 6);
end.

Как-то так, ...

[Kat9]

спасибки