uses crt;
var x,s:real;
n:integer;
begin
clrscr;
write('x='); readln(x);
write('n='); readln(n);
x:=ln(x);
for n:=1 to n do
s:=s+exp((n-1)*x)/n;
write('Сумма=',s:0:3);
readln;
end.
Найти сумму первых n членов ряда(Pascal)
Найти сумму первых n членов ряда y = 1 + x/2 + x^2/3 + x^3/4 + ... где x - любое число.
Решать через for.
Заранее спасибо.
[COLOR="Red"]В названии темы,согласно Правилам раздела,необходимо указывать язык программирования.[/COLOR] модератор.
Решать через for.
Заранее спасибо.
[COLOR="Red"]В названии темы,согласно Правилам раздела,необходимо указывать язык программирования.[/COLOR] модератор.
Цитата: MaxDogg
Найти сумму первых n членов ряда y = 1 + x/2 + x^2/3 + x^3/4 + ... где x - любое число.
Решать через for.
Заранее спасибо.
[COLOR="Red"]В названии темы,согласно Правилам раздела,необходимо указывать язык программирования.[/COLOR] модератор.
Решать через for.
Заранее спасибо.
[COLOR="Red"]В названии темы,согласно Правилам раздела,необходимо указывать язык программирования.[/COLOR] модератор.
На Pascal'e