Здравствуйте. Нужно очень срочно! Пример программы ** Pascal, где вычисляется сумма...

Question

Здравствуйте.
Нужно очень срочно!
Пример программы на Pascal, где вычисляется сумма конечного числа членов гармонического ряда 1+1/2+1/4+...+1/(2*i)+..

Answer 1

Program my_prog;
var 
i, n: integer;
S : real;
begin 
  writeln( 'This program compute the sum = 1 + (1/2) + (1/4) + ... + (1/(2*n))');
  write('Enter the up limit of Sum, n=: '); 
  readln(n); 
  S:=1; 
  for i:=1 to n do S:=S + (1/(2*i)); 
  writeln('Sum = ', S);
end.