Question

Вычислить сумму ряда до n количества значений S=1+ 1/2+1/4+1/(8 )… напишите программу в паскале

Answer 1

Не очень корректная постановка задачи, но понять можно.
var n,i:integer; s,a:real;
begin
write('n=');readln(n);
s:=1;a:=1;
for i:=2 to n do
 begin
  a:=a*2; s:=s+1/a;
 end;
writeln('s=',s:6:4);
end.

Answer 2

Для вычисления суммы ряда S = 1 + 1/2 + 1/4 + 1/8 + ... до n количества значений в Pascal, вы можете использовать следующий код:

pascalCopy code
program SumOfSeries;
var
  n, i: Integer;
  S, term: Real;
begin
  S := 0;
  term := 1;
  
  Write('Введите количество членов ряда (n): ');
  Readln(n);
  
  for i := 1 to n do
  begin
    S := S + term;
    term := term / 2;
  end;
  
  Write('Сумма ряда S = ', S);
  Readln;
end.

Эта программа сначала запрашивает у пользователя количество членов ряда (n), затем вычисляет сумму ряда, начиная с 1 и уменьшая каждый следующий член ряда вдвое, пока не достигнет n членов. Результат выводится на экран.

Пример ввода и вывода:

scssCopy code
Введите количество членов ряда (n): 5
Сумма ряда S = 1.9375

Примечание: В данном примере используется тип данных Real для более точных вычислений.