結果

問題 No.188 HAPPY DAY
ユーザー simple-ac
提出日時 2021-06-05 14:40:48
言語 Perl
(5.40.0)
結果
WA  
実行時間 -
コード長 582 bytes
コンパイル時間 436 ms
コンパイル使用メモリ 7,936 KB
実行使用メモリ 7,936 KB
最終ジャッジ日時 2024-11-21 12:24:12
合計ジャッジ時間 928 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other WA * 1
権限があれば一括ダウンロードができます
コンパイルメッセージ
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";
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0