Question

Паскаль: Вычислить сумму : 1/3+3/5+5/7+...+49/51

Answer 1

Ответ:

Объяснение:

program prog;

var i,k:integer;

   S:double;

begin

i:=1; k:=3; S:=0;

while (i<=49) and (k<=51) do begin

S:=S+i/k;

i:=i+2;

k:=k+2;

end;

writeln ('Сумма', S);

end.

Answer 2

Для вычисления суммы данного ряда используем программу на языке Паскаль:

pascalCopy code
program SumOfSeries;
var
  i: integer;
  sum: real;
begin
  sum := 0;

  for i := 1 to 49 step 2 do
  begin
    sum := sum + i / (i + 2);
  end;

  writeln('Сумма ряда: ', sum:0:2);
end.

Эта программа использует цикл for, чтобы пройти через члены ряда от 1 до 49 с шагом 2 и вычислить сумму. Результат будет выведен на экране.