#554439 (Perl) No.1229 ラグビーの得点パターン - yukicoder

提出ソース

結果

問題	No.1229 ラグビーの得点パターン
コンテスト
ユーザー	%20
提出日時	2020-09-18 21:23:19
言語	Perl (5.40.0)
結果	AC
実行時間	3 ms / 2,000 ms
コード長	106 bytes
コンパイル時間	435 ms
コンパイル使用メモリ	7,072 KB
実行使用メモリ	6,948 KB
最終ジャッジ日時	2024-06-22 08:36:50
合計ジャッジ時間	1,021 ms
ジャッジサーバーID （参考情報）	judge2 / judge4

このコードへのチャレンジ
（要ログイン）

ファイルパターン	結果
sample	AC * 4
other	AC * 25

権限があれば一括ダウンロードができます

コンパイルメッセージ

Main.pl syntax OK

ソースコード

raw source code

$N=<>;
for$T(0..20){
	for$G(0..$T){
		$x=$N-5*$T-2*$G;
		if($x>=0&&$x%3==0){
			++$%;
		}
	}
}
print$%,$/

0