Задача - Помощь студентам

Baby33 · 27.01.2009, 12:09

не получается решить

plato · 27.01.2009, 13:14

а ты, наеврное, и не пробовал

Dvijochnyk · 27.01.2009, 13:20

var x,n:integer;z:real;
BEGIN
writeln('Enter X');
readln(x);
z:=0;
for n:=1 to 15 do
begin
z:=z+n*exp((2*n-1)*ln(x))
end;
writeln(z:4:2);
readln;
END.

27.01.2009, 13:14	#2
plato Форумчанин Регистрация: 23.01.2009 Сообщений: 107	а ты, наеврное, и не пробовал и не забудьте подарить детям шоколадку

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задача	Witaliy	Паскаль, Turbo Pascal, PascalABC.NET	1	12.11.2008 18:18
задача	mmike	Паскаль, Turbo Pascal, PascalABC.NET	1	14.10.2008 21:52

27.01.2009, 13:20	#3
Dvijochnyk Пользователь Регистрация: 23.01.2009 Сообщений: 21	var x,n:integer;z:real; BEGIN writeln('Enter X'); readln(x); z:=0; for n:=1 to 15 do begin z:=z+nexp((2n-1)*ln(x)) end; writeln(z:4:2); readln; END.