結果

問題 No.188 HAPPY DAY
ユーザー simple-acsimple-ac
提出日時 2021-06-05 14:40:48
言語 Perl
(5.38.2)
結果
WA  
実行時間 -
コード長 582 bytes
コンパイル時間 436 ms
コンパイル使用メモリ 7,936 KB
実行使用メモリ 7,936 KB
最終ジャッジ日時 2024-11-21 12:24:12
合計ジャッジ時間 928 ms
ジャッジサーバーID
(参考情報)
judge4 / judge1
このコードへのチャレンジ
(要ログイン)

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 WA -
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #

use strict;
use warnings;
use utf8;
use POSIX;

my $count = 0;

for (my $month = 1; $month <= 12; $month++) {
	# 日数決め
	my $max_days;
	if( $month == 2){
		$max_days = 28;
	} elsif (($month == 4) or ($month == 6) or
				($month == 9) or ($month == 11) ) {
		$max_days = 30;
	} else {
		$max_days = 31;
	}
	# カウント処理
	for (my $day = 1; $day <= $max_days; $day++){
		my $ones_place = $day%10;
		my $tens_place = floor ($day/10);
		# floorで小数部切り捨て
		my $sum = $ones_place + $tens_place;

		if( $sum == $day){
			$count += 1;
		}
	}
}

print "$count\n";
0