Циклы!, Help!!!Plz. Опции

[LFTT]

Здравствуйте!

Мне нужно сделать эти задачи:

1) Ввести x и вычислить y=cosx+cosx(квадрат)+cosx(куб)+...+cos(30степень)

2)Дана некоторая последовательность С. Найти максимальный номер i, при котором выполнено нижеследующее условие:
С1=1/2!, С2=1/4!, С3=1/6! ... Сi>2.0e-12

Заранее СПАСИБО!

С ув. LFTT.

[klem4]

1)

  y := 0;
  temp := x;

  for n := 1 to 30 do begin
    y := y + cos(temp);
    temp := temp * x;
  end;

2)

  fact := 2;
  i := 2;

  repeat

    fact := fact * 2 * i * pred(2 * i);

    inc(i);

  until (1 / fact < 2E-12);