- 894 名前：空落ち ◆SniperBHgo [2009/04/30(木) 00:35:53 ]
- >>893
program test(output);
const
N = 7;
var
i, x : integer;
function Power(a,b:integer):integer;{aのb乗}
var
t, i : integer;
begin
t := 1;
for i := 1 to b do begin
t := t * a
end;
Power := t
end;
begin
x := 1;
for i := 1 to Power( N, N ) do begin
x := ( x * N ) mod 10
end;
writeln( x )
end.
