Question

Написать в pascalABC. Вычислите значение суммы N членов следующего ряда: k/1 + k/3 + k/5..... N>0, K>0 - вводится с клавиатуры.

Answer 1

Решение на PascalABC.NET:

var  

 N: integer;

 K: double;

begin

 write('Введите N:');

 readln(N);

 write('Введите K:');

 readln(K);

 write(

   System.Linq.Enumerable

     .Range(0, N)

     .Sum(t -> K / (1 + t *2)));

end.

Answer 2

Для вычисления значения суммы N членов ряда k/1 + k/3 + k/5 + ... нужно написать программу на PascalABC. Вот пример такой программы:

pascalCopy code
program SeriesSum;

var
  N, K, i: Integer;
  sum: Real;

begin
  Write('Введите значение N: ');
  ReadLn(N);
  
  Write('Введите значение K: ');
  ReadLn(K);
  
  sum := 0;
  i := 1;
  
  while i <= N do
  begin
    sum := sum + K / i;
    i := i + 2;
  end;
  
  WriteLn('Значение суммы первых ', N, ' членов ряда: ', sum:0:2);
end.

Этот код позволяет ввести значения N и K с клавиатуры, а затем вычисляет и выводит значение суммы N членов ряда k/1 + k/3 + k/5 + ...