Ответы и объяснения

Лучший Ответ!
2014-04-09T08:09:05+04:00
Var 
s, a: real; 
n, i: integer;
begin 
 write('Введите действительное число а: '); 
 read(a); 
write('Введите натуральное число n: '); 
 read(n);
 s:=0; 
for i := 1 to n do    s := s+(1 / (exp(a) * (2 * n - 1)));//X^Y = exp(ln(X) * Y)   
writeln('Результат S: ', s:0:6);
end.