помогите с алгоритмом ( в паскале), вычислить число в степени равной этому числу Опции

[pirozho4ek]

надо вычислить выражение:
при J:= от 2 до N (N>2) ------ это условие подразумевает что в проге вводится значение N, и перебирая поочереди значения от 2 до N вычисляется значение J^J при каждом значение J... а потом суммировать надо...
но мне надо узнать алгоритм самого вычесления выражения J^J
что б мог считать при любом значение >2
J^J:=?

помогите кто может с алгоритмом

P.S. заранее благодарен=)

Сообщение отредактировано: pirozho4ek - 18.05.2007 4:53

[klem4]

М

Пользуйся тегами.

var
  i, j, k, n, T, P: LongInt;
  S: Single;
begin
  write('n = '); readln(n);

  T := 2;
  s := 0;

  for j := 2 to n do begin
    T := T * (j + 1);
    P := 1;
    for k := 1 to j do P := P * j;
    S := S + T / (T + P);
  end;

  writeln(s:5:2);
end.