Циклическая структура с предусловием(

[Viktory.nvrn]

Помогите, пожалуйста, решить задачи на ТР!
1)Известен возраст (от 15 и выше) каждого альпиниста в отряде. Определить количество альпинистов, возраст которых превышает 25 лет. в отряде 20 человек.
2) По заданной формуле члена ряда составить программу вычисления всех членов ряда, не меньше заданного Е. Формула члена ряда: 1/(3к*к+к+2). Е=0.0001
3)Дан ряд Аn=1/(3n-2)*(3n+1). Найти сумму всех его членов, не меньших 0.001
4)Найти сумму ряда с точностью Е=0,02, общий член которого Аn=(n!)/(2n(n!)). Считать, что точность достигнута, если Аn<E.

[p51x]

И какую помощь вы ждете? Готовые программы? - Тогда вам во фриланс.

[Chudo4258]

1)Известен возраст (от 15 и выше) каждого альпиниста в отряде. Определить количество альпинистов, возраст которых превышает 25 лет. в отряде 20 человек.

var A:array[1..20] of integer;
     i:integer;
begin
 Writeln('Vvod alpenistov:');
 for i:=1 to 20 do
  begin
   Write('Vozrast alpenista ',i,' = ');readln(A[i]);
  end;

 Writeln('Spisok alpenistov, vozrast kotorjh >=25:');
 for i:=1 to 20 do
   if a[i]<=25 then Writeln('Alpenist ',i)

2) По заданной формуле члена ряда составить программу вычисления всех членов ряда, не меньше заданного Е. Формула члена ряда: 1/(3к*к+к+2). Е=0.0001

n:=1;
a:=1/(3*sqr(к)+к+2);
while a>=0.0001 do
 begin
  Wireln('A',n,'= ',a);
  inc(n);
  a:=1/(3*sqr(к)+к+2);
 end;

3)Дан ряд Аn=1/(3n-2)*(3n+1). Найти сумму всех его членов, не меньших 0.001

n:=1;
a:=1/(3*n-2)*(3*n+1);
S:=0;
while a>=0.001 do
 begin
  S:=S+a;
  inc(n);
  a:=1/(3*n-2)*(3*n+1);
 end;
Writeln('S= ',S);

[Viktory.nvrn]

Спасибо, огромное!!!