Нужна помощь с паскалем

[kolek_96]

ребят, нужна помощь

Пользователь вводит целое положительное число n. Найти значение суммы
1^n + 2^(n-1) + 3^(n-2) + ... + (n-1)^2 + n^1
Вывести на экран таблицу всех значений суммы, которые не выходят за пределы
диапазона типа longint.

[min@y™]

у тебя в компе паскаль есть?

[kolek_96]

Сообщение от min@y™

у тебя в компе паскаль есть?

да, конечно

[newerow1989]

function Step(x,n:longint):longint;
var i:longint;
begin
   Result:=x;
   For i:=2 to n do
      Result:=Result*x;
end;

function Zap(n:longint):longint;
var i:longint;
begin
   Result:=1;
   For i:=2 to n do
      Result:=Result+Step(i,n-i+1);
end;

var i,n:longint;

begin
   Writeln('Chislo ot 1 do 16:');
   Readln(n);
   Writeln('Tablitsa:');
   For i:=1 to n do
      Writeln(i,': ',Zap(i));
   Readln;
end.

Сойдет?

[kolek_96]

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

function Step(x,n:longint):longint;
var i:longint;
begin
   Result:=x;
   For i:=2 to n do
      Result:=Result*x;
end;

function Zap(n:longint):longint;
var i:longint;
begin
   Result:=1;
   For i:=2 to n do
      Result:=Result+Step(i,n-i+1);
end;

var i,n:longint;

begin
   Writeln('Chislo ot 1 do 16:');
   Readln(n);
   Writeln('Tablitsa:');
   For i:=1 to n do
      Writeln(i,': ',Zap(i));
   Readln;
end.

Сойдет?

отлично. Спасибо, надеюсь прокатит

[newerow1989]

Пожалуйста!