Question

1.Вычислить сумму ряда s= cos(x)+cos(x)*cos(x)+...+cos(x)*cos(x)*...*cos(x), для x и n введенных с клавиатуры.

Answer 1

Var x, n, i, j, r: Integer;
    sum, temp: Double;
begin
  ReadLn(x, n);
  sum:=0;
  r:=cos(x);
  for i:=1 to n do begin
    temp:=r;
    for j:=1 to i do temp:=temp*temp;
    sum:=sum+temp;
  end;
  WriteLn(sum);
end.

Answer 2

Сейчас напишу)

Answer 3

Var n, i: Integer;
    x, sum, temp, cosx: Double;
begin
  ReadLn(x, n);
  sum:=0;
  cosx:=cos(x);
  temp:=1;
  for i:=1 to n do begin
    temp:=temp*cosx;
    sum:=sum+temp;
  end;
  WriteLn(sum);
end.