Задачи на последовательности (массивы)

[Bakasova]

Пусть a0=a1=1; ak= ak-1 + (ak-1)/(2k-1), где k = 2, 3, …
Найти произведение a0 *a1 *…*an.

[JUDAS]

может быть
Ak = Ak-1 + Ak-1 * (2*k-1);
Тогда ответ таков:

R:=1;
Aprev := 1;
for i:=2 to k do
begin
 Ak:= Aprev +Aprev*(2*i-1);
 R:=R*Ak;
 Aprev := Ak;
end;

[Bakasova]

Пусть даны натуральные числа n, a1,...,an. Определите количество членов ak последовательности a1,...,an:кратных 3 и не кратных 5

[Bakasova]

нет, там дробь

[JUDAS]

Так бы и написали )

var i,n,count : integer;
begin
  N:=15; // максимальное число
  count :=0;
  for i:=1 to N do
  count:=count+ byte(((i mod 3)=0) and ((i mod 5) <> 0));



end;

если нужно определить в массиве чисел, тогда:

const 
   n = 15;
var i,count : integer;
     A : array[1..n] of integer;
begin
  count :=0;
  for i:=1 to N do
  count:=count+ byte(((A[i] mod 3)=0) and ((A[i] mod 5) <> 0));
end;