Pascalの宿題は俺にやらせろ！！Part2

Pascalの宿題は俺にやらせろ！！Part2 at TECH

894:空落ち ◆SniperBHgo
09/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.

次ページ

続きを表示

1を表示