Подскажите в правильном ли направлении идуВышла загвоздка с программой, Посмотрите, Вышла загвоздка с программой, я приняла n за 1, а может бы Опции

[TanyaH]

Найти значение суммы S, для которого формула слагаемого
an=(-1)n/nn Суммирование продолжать до тех пор, пока очередное слагаемое ai>ε Использовать цикл While-Go

program p3;
user crt;
var
n: integer;
s;a:real;
begin
   ClrScr;
s:=0;
n:=1;
a:= Exp(n * Ln(((-1)/n));
While a>? do begin
S:= s+ Exp(n * Ln(((-1)/n));
a:= Exp(n * Ln(((-1)/n));
n:= n+1;
end;
write('сумма слагаемых ');
write(s);
end.

Сообщение отредактировано: volvo - 13.01.2006 9:50