Массивы, факториалы Опции

[smith]

Даны натуральные числа n, a1,…,an, где n≤12. Найти члены ak последовательности a1,…,an, удовлетворяющие условию 2k<ak<k!, и определить их количество.

помогите, пожалуйста!

[Lapp]

Даны натуральные числа n, a1,…,an, где n≤12. Найти члены ak последовательности a1,…,an, удовлетворяющие условию 2k<ak<k!, и определить их количество.

А что не получается конкретно? Делаешь цикл с проверкой и подсчетом, факториалов на форуме - как грязи..
Покажи, что сделал.

[smith]

А что не получается конкретно? Делаешь цикл с проверкой и подсчетом, факториалов на форуме - как грязи..
Покажи, что сделал.

я, честно говоря, ничего не сделал...
вообще даже не знаю как подступиться=(

[Lapp]

вообще даже не знаю как подступиться=(

?? Мне кажется, твои предыдущие задачи были сложнее..

Ну, подступись как-то так..

var
  a: array [1..m] of integer;
  i,t: integer;
  f: LongInt;

// ...

  t:=0;
  f:=1;
  for i:=1 to m do begin
    f:= f*i;
    if (2*i<a[i]) and (a[i]<f) then begin
      WriteLn(i:10,a[i]:10);
      Inc(t)
    end
  end;
  WriteLn('Total: ',t)