結果

問題 No.81 すべて足すだけの簡単なお仕事です。
コンテスト
ユーザー ty70
提出日時 2017-01-06 12:20:47
言語 Perl
(5.40.0)
結果
WA  
実行時間 -
コード長 193 bytes
コンパイル時間 256 ms
コンパイル使用メモリ 6,816 KB
実行使用メモリ 6,824 KB
最終ジャッジ日時 2024-12-17 19:40:58
合計ジャッジ時間 1,157 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other WA * 30
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

#!/usr/bin/perl -w

my $n = <STDIN>;
my $sum = 0;
for (my $i = 0; $i < $n; $i = $i + 1){
	my $val = <STDIN>;
	$sum = $sum + $val;
} # end for

$res = sprintf("%.10f\n",$sum);
print $res . '\n';
0