くだすれFORTRAN（超初心者用）

くだすれFORTRAN（超初心者用） at TECH

17:５
06/01/27 22:00:19
!
imonth = imonth0
DO
IF ( ndays - ndays_of_month(imonth, ileap) > 0 ) THEN
imonth = imonth + 1
ndays = ndays - ndays_of_month(imonth, ileap)
ELSE
EXIT
END IF
END DO
iday = ndays
WRITE(*, *) "The date is ", iyear, imonth, iday
STOP
END PROGRAM AliceGame2

センブラインデント用
>>15-17

結果チェックしてないｗ　自分でチェックして書き直すですよ！

次ページ

続きを表示

1を表示