нужно составить прогу в паскале по примеру

[NATKA]

даны y,e.вычислсть с точностью до e:
Z=1/y+1/3*exp(3*ln(1/y))+1/5*exp(5*ln(1/5))+1/7*exp(7*ln(1/y))+...+1/21*exp(21*ln(1/y)) вот такой пример..не оч понимаю я прграммирование..так што вот на всякий случай запишу ещё и в словесном виде Z=1/y+1/3умноженная на (1/y в степени 3)+1/5 умноженное (на 1/5 в степени 5)+1/7 умноженное (на 1/y в степени 7)+...+1/21 умноженное (на 1/y в степени 21)

[Stilet]

Я мож чет недопонял но кажись так:

var y,f:Double;i:integer;
begin
 y:=1;
 f:=1/y;
 i:=3;while i<>21 do begin
  f:=f+1/i*exp(i*ln(1/y));
  i:=i+2;
 end;
writeln(f);readln;
end.

на всякий случай запишу ещё и в словесном виде

А вдруг я непонимайт па русски? Дейче Битте Дритте ))))

[Digi]

1)ВЫчислить сумму S первых N членов ряда A=K/exp(3*ln(K)),не меньше заданного числа R,где
K=1,2,3...,N,
N-произвольное число!
Принять R=0,08

Ну или хотябы вот эту!
2)Найти S сумму членов ряда N/(N+1)(N+2),где N= 1,2,3,4,...,K,
K>0-произвольное число!!!!!
ПОЖАЛУЙСТА!!!!!ПОМОГИТЕЕЕЕ!!!БУДУ очень признателен!!!

[ОДИНОЧЕСТВО В СЕТИ]

2 )

 for i:=1 to k do
s:=s+i/((i+1)*(i+2));

1)

k:=1;
a:=k/(exp(3*(ln(k))));
while a>=0.08 do begin
s:=s+a;
inc(k);
a:=k/(exp(3*(ln(k))));
end;

[Digi]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

2 )

 for i:=1 to k do
s:=s+i/((i+1)*(i+2));

1)

k:=1;
a:=k/(exp(3*(ln(k))));
while a>=0.08 do begin
s:=s+a;
inc(k);
a:=k/(exp(3*(ln(k))));
end;

Я ДЯТЕЛ В ПАСКАЛЕ!+))Мне БЫ ПОЛНОСТЬЮ НАЧИНАЯ С Var,если можно

[Stilet]

Одна тема - один автор.
Закрываю.