08.02.2009, 18:44
общий
это ответ
Здравствуйте, [b]Гришко Максим Сергеевич[/b]!
Пример c комментариями находится в приложении.
Удачи!
Приложение:
program Q159942;
var
n, i: Integer;
sum, sig: Real;
begin
{ Вводим n }
repeat
write('n = '); readln(n);
until (n > 0);
{ сумма }
sum:= 0.0;
{ sig = (-1)^(n-1) }
sig:= 1.0;
{ вычисления }
for i:= 1 to n do
begin
sum:= sum + sig/i;
sig:= -sig;
end;
{ выводим результат }
writeln('sum = ', sum:5:5);
end.