PROGRAM ex4_4 
IMPLICIT NONE 
INTEGER:: year, days 
PRINT *, 'Input a year:' 
READ *, year 
days = 365 * year + year / 4 - year / 100 + year / 400 
IF(MOD(days,7)==1)THEN
PRINT *,'月曜日'
ELSE IF(MOD(days,7)==2)THEN
PRINT *,'火曜日'
ELSE IF(MOD(days,7)==3)THEN
PRINT *,'水曜日'
ELSE IF(MOD(days,7)==4)THEN
PRINT *,'木曜日'
ELSE IF(MOD(days,7)==5)THEN
PRINT *,'金曜日'
ELSE IF(MOD(days,7)==6)THEN
PRINT *,'土曜日'
ELSE IF(MOD(days,7)==0)THEN
PRINT *,'日曜日'
END IF
END PROGRAM ex4_4

UFJPR1JBTSBleDRfNCAKSU1QTElDSVQgTk9ORSAKSU5URUdFUjo6IHllYXIsIGRheXMgClBSSU5UICosICdJbnB1dCBhIHllYXI6JyAKUkVBRCAqLCB5ZWFyIApkYXlzID0gMzY1ICogeWVhciArIHllYXIgLyA0IC0geWVhciAvIDEwMCArIHllYXIgLyA0MDAgCklGKE1PRChkYXlzLDcpPT0xKVRIRU4KUFJJTlQgKiwn5pyI5puc5pelJwpFTFNFIElGKE1PRChkYXlzLDcpPT0yKVRIRU4KUFJJTlQgKiwn54Gr5puc5pelJwpFTFNFIElGKE1PRChkYXlzLDcpPT0zKVRIRU4KUFJJTlQgKiwn5rC05puc5pelJwpFTFNFIElGKE1PRChkYXlzLDcpPT00KVRIRU4KUFJJTlQgKiwn5pyo5puc5pelJwpFTFNFIElGKE1PRChkYXlzLDcpPT01KVRIRU4KUFJJTlQgKiwn6YeR5puc5pelJwpFTFNFIElGKE1PRChkYXlzLDcpPT02KVRIRU4KUFJJTlQgKiwn5Zyf5puc5pelJwpFTFNFIElGKE1PRChkYXlzLDcpPT0wKVRIRU4KUFJJTlQgKiwn5pel5puc5pelJwpFTkQgSUYKRU5EIFBST0dSQU0gZXg0XzQ=

MjAyNQo=

2025