Question

(Pascal) Плиз помогите
1) Дано натуральное число n и действительное x . Вычислить cos(x)+cos(x^2)+...+cos(x^n)
2)Найти первый член последовательности 1/2 *n где n=1,2,3... меньший некоторого числа А (0<а<1).

Answer 1

Вот) Тут используется формула $a^b=e^{b*\text{log}_e{a}}$ и, как я понимаю, всё таки $a_n=\frac{1}{2n}$, а не $a_n=\frac{1}{2}n$

var
  x, res: real;
  i, n: integer;

begin
  writeln('Enter n, x:');
  readln(n, x);
 
  res := 0;
  for i := 1 to n do
    res := res + cos(exp(i * ln(x)));
    
  writeln(res);
end.

=======

var
  A: real;
  i: integer;

begin
  writeln('Enter A:');
  readln(A);
 
  i := 1;
  while 1 / (2 * i) >= A do
    i := i + 1;
   
  writeln('a_', i, ' = ', 1 / (2 * i));
end.