Question

Вычислите сумму n первых членов ряда S= 1+1/2 + 1/3 +... 1/n. Срочно, пожалуйста ​на паскале

Answer 1

Ответ:

program ruslanchomaev;

var n,i:integer; s:real;

begin

writeln('Введите кол-во членов');

readln(n);

s:=0;  

for i:=1 to n do

 s:=s+1/i;

writeln('сумму n первых членов ряда=',s:3:3);

end.

Объяснение:

Answer 2

Конечно, вот пример кода на языке Pascal для вычисления суммы первых n членов ряда:

pascalCopy code
program SumOfSeries;

var
  n, i: Integer;
  sum: Real;

begin
  writeln('Введите значение n:');
  readln(n);
  
  sum := 0;
  for i := 1 to n do
    sum := sum + 1 / i;
  
  writeln('Сумма первых ', n, ' членов ряда: ', sum);
end.

Просто скопируйте этот код в среду разработки Pascal (например, Free Pascal) и выполните его. Он запросит у вас значение n (количество членов ряда), затем вычислит и выведет сумму первых n членов ряда на экран.