Question

Pascal abc составить программу для нахождения S Дано натуральное число n. Найти сумму S=1- 1/5 + 1/9 - 1/13...+ (n-слагаемых) Спасибо!

Answer 1

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  Writeln(Range(0,n-1).Select(i->1/(i.IsEven?4*i+1:-(4*i+1))).Sum)
end.

Пример
n= 13
0.876761945581588

для Pascal ABC (проверить негде, проект закрыт в 2004 году)

var
  i,n,z:integer;
  x,s:real;

begin
  Write('n='); Read(n);
  s:=0; z:=1;
  for i:=0 to n-1 do begin
    x:=1/(4*i+1);
    s:=s+x*z;
    z:=-z
    end;
  Writeln(s)
end.

Answer 2

Программа на языке Pascal для нахождения суммы S

program SumCalculation;

var
  n: integer;
  i: integer;
  S: real;

begin
  writeln('Введите натуральное число n:');
  readln(n);
  
  S := 0;
  for i := 1 to n do
  begin
    if i mod 4 = 1 then
      S := S + 1 / (4 * i - 3)
    else if i mod 4 = 2 then
      S := S - 1 / (4 * i - 3)
    else if i mod 4 = 3 then
      S := S + 1 / (4 * i - 3)
    else
      S := S - 1 / (4 * i - 3);
  end;
  
  writeln('Сумма S равна: ', S);
end.

Объяснение программы: 1. Пользователю предлагается ввести натуральное число n. 2. Переменная S инициализируется нулем. 3. В цикле от 1 до n происходит вычисление суммы S. 4. В каждой итерации цикла проверяется остаток от деления i на 4: - Если остаток равен 1, то к сумме S прибавляется дробь 1 / (4 * i - 3). - Если остаток равен 2, то из суммы S вычитается дробь 1 / (4 * i - 3). - Если остаток равен 3, то к сумме S прибавляется дробь 1 / (4 * i - 3). - Если остаток равен 0, то из суммы S вычитается дробь 1 / (4 * i - 3). 5. После завершения цикла выводится значение суммы S.

Надеюсь, эта программа поможет вам найти сумму S для заданного натурального числа n. Если у вас возникнут дополнительные вопросы, пожалуйста, не стесняйтесь задавать их!