k:=0; b:=1;
{b=a^k}
while k <> n do begin
k:=k+1;
b:=b*a;
end;
他の場所では助けを得ることができませんでした..ここで答えを得たいと思っています。
k:=0; b:=1;
{b=a^k}
while k <> n do begin
k:=k+1;
b:=b*a;
end;
他の場所では助けを得ることができませんでした..ここで答えを得たいと思っています。