найти значение функции

[Bakasova]

Найти значения функции у = n^n для n = 1, 2 ... n.

[JIeIIIa]

А где же собственные наработки?
пс: Свойства логарифмов Вам в помощь.

[ViktorR]

Или просто в цикле:

y := 1;
for i := 1 to n do
   y := y * n;
writeln('y = ', y);

Внимание: n - нельзя делать большим и тип для y следует определить с наибольшим диапазоном значений, например longint.


Вроде так ...