Решение выражения.

[Roman1295]

 Var en,x, step : integer;   sum :real;
 begin
 x:=1;
readln(en);

 While x <= en do
 sum:=1+1/x+1;
 end.

Решил что-то, но главный вопрос вот какой: нужно возведение в степень, не используя ф-ю Exp или какие-либо другие, только через цикл.

[Sciv]

Так у Вас степеньзадана константой и равна трем.

sum:=0;
for i:=1 to n do sum:=sum+1/i*i*i;

[Slym]

Сообщение от Sciv

Так у Вас степеньзадана константой и равна трем.

sum:=0;
for i:=1 to n do sum:=sum+1/i*i*i;

порядок действий и скобки?

[Roman1295]

Сообщение от Sciv

Так у Вас степеньзадана константой и равна трем.

sum:=0;
for i:=1 to n do sum:=sum+1/i*i*i;

Так, с этим вроде разобрался, но у меня условие: нужен цикл по условию, совсем запутался.

[Sciv]

нужен цикл по условию

sum:=0;
i:=1;
while i<=n do begin
  sum:=sum+1/i*i*i;
  inc(i);
end;

или

sum:=0;
i:=1;
Repeat
  sum:=sum+1/i*i*i;
  inc(i);
Until i>n;

[Mad_Cat]

sum:=sum+1/(i*i*i);

[Sciv]

порядок действий и скобки?

Slym, а чего сразу-то не исправил?
У меня сейчас полный затуп в мозгах и ооочень медленный интернет (64Кб).

Mad_Cat спасибо