Question

Turbo PascalДаны действительное число а, натуральное число n. Вычислить: S = 1/a + 1/a^2 + 1/a^4 + … + 1/a^2n-2

Answer 1

Как в задании:
var a,an,s:real; n,i:integer;
begin
write('a = '); readln(a);
write('n = '); readln(n);
s:=1/a;
an:=1;
for i:=2 to n do
 begin
 an:=an*a*a;
 s:=s+1/an;
 end;
writeln('s = ',s);
end.

Пример:
a = 2
n = 4
s = 0.828125

Answer 2

Для вычисления суммы \(S = 1/a + 1/a^2 + 1/a^4 + \ldots + 1/a^{2n-2}\) в Turbo Pascal, вы можете использовать цикл и последовательно добавлять каждый элемент ряда к сумме. Вот пример кода:

program SumSeries;

var
  a: real;      // действительное число a
  n: integer;   // натуральное число n
  i: integer;   // переменная для цикла
  S: real;      // сумма ряда

begin
  // Ввод данных
  writeln('Введите действительное число a:');
  readln(a);

writeln('Введите натуральное число n:');
  readln(n);

// Инициализация суммы
  S := 0;

// Вычисление суммы ряда
  for i := 0 to n - 1 do
  begin
    S := S + 1 / power(a, 2 * i);
  end;

// Вывод результата
  writeln('Сумма ряда S = ', S);

// Задержка экрана перед закрытием (для просмотра результата)
  readln;
end.

В этом коде используется цикл `for`, который проходит от 0 до `n-1`, и на каждом шаге добавляет к сумме очередной член ряда. Функция `power(a, b)` используется для возведения числа `a` в степень `b`. Затем результат выводится на экран.

Пожалуйста, убедитесь, что в вашей среде разработки Turbo Pascal код корректно компилируется и выполняется.