C/C++の宿題を片付けます 99代目

C/C++の宿題を片付けます 99代目 at TECH

231:デフォルトの名無しさん
07/11/10 21:43:01
>>226
#!/usr/local/perl
$a = <STDIN>;$r = <STDIN>;$n = <STDIN>;
print $a*$n if($r == 1);print $a*(1-$r**$n)/(1-$r) if($r != 1);

次ページ

続きを表示

1を表示