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

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.