Цитата(Ildar @ 17.11.2007 19:35)

Я уже 4 часа не могу решить эту задачу. Может кто нибудь быстренько раскидает?
1)
Код
function f(x:integer):real;
begin
f:=1/exp(ln(x)*3); // функция изменения
end;
..
for i:=1 to 50 do
sum:=sum+f(i);
..
2)
Код
function f(x:integer):real;
begin
f:=1/sqr(2*x); // функция изменения
end;
..
for i:=1 to 64 do
sum:=sum+f(i);
..