Question

Вычислить на языке Паскаль: у = cos x + cos x¹ + cos x³ +...+ cos x¹¹.
​

Answer 1

program task;

var

 x, y: Real;

 n: Integer;

begin

 // Введите значение x

 Write('Enter x: ');

 ReadLn(x);

 // Инициализируем y значением cos(x)

 y := Cos(x);

 // Итерируемся по n, от 1 до 11 с шагом 2

 for n := 1 to 11 step 2 do

 begin

   // Добавляем значение cos(x^n) к y

   y := y + Cos(Power(x, n));

 end;

 // Выводим результат

 WriteLn('Result: ', y:0:4);

end.