ВЫЧИСЛИТЬ j^j ПРИ ЗНАЧЕНИИ j ОТ 2 ДО N

[pirozho4ek]

НАДО ВЫЧИСЛИТЬ j^j ПРИ ЗНАЧЕНИИ j ОТ 2 ДО N (N>2: integer)
заране спасибо=)

[Shuraken]

Куда вычислить? Не хватает данных для анализа.

[Virtson]

var j, N : integer
begin
 for j:= 2 to N do 
   a[j]:= j*j
end;

)))

[Alar]

Интригующий заголовок. А немного постараться и составить нормальный можно?

[Virtson]

а мне ник понравился )

[pirozho4ek]

всем спасибо , я преподу сдал эту задачку в таком варианте:

var
j,N,i:integer;
begin
sum:=0;
p:=1;
fac1:=1;
writeln('N');
readln(N);
for j:=2 to N do
begin
for i:=0 to j-1 do
begin
slag1:=((1+j)-i);
fac1:=fac1*slag1;
p:=p*j;
end;
a:=fac1;
b:=p;
sum:=sum+a/(a+b);
end;
writeln(sum);
end.

[Virtson]

a:=fac1;
b:=p;

лишние промежуточные переменные )