本热帝国理工，现在有一个pascal问题想请教大家~

Question

这个程序怎么编？
1的n次方+2的n次方+3的n次方+.........+10的n次方~~
谢谢啦。
我明天要考pascal~

Answer 1

Delhpi中有個power函數呀.2的n次方
power(2, n)

Answer 2

pascal7可能没有power函数function f(a:integer;x:integer):longint;//求a的x次方；
var k:integer;
    sum:longint;
begin
  sum:=1;
  for k:=1 to x do sum:=sum*a;
  f:=sum;
end;var result:longint;
    i,m,n:integer;
begin
  n:=3;m:=100;//n次方，一共m项
  result:=0;
  for i:=1 to m do result:=result+f(i,n);
  writeln(result);
end.