結果
問題 | No.73 helloworld |
ユーザー |
![]() |
提出日時 | 2016-09-13 23:01:00 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
AC
|
実行時間 | 2 ms / 5,000 ms |
コード長 | 707 bytes |
コンパイル時間 | 1,695 ms |
コンパイル使用メモリ | 32,256 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-06-29 17:37:57 |
合計ジャッジ時間 | 2,044 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 14 |
ソースコード
program mainimplicit noneinteger*8::C(26)integer*8::h,e,l,o,w,r,d,ml,moread *,Ch = C(8)e = C(5)l = C(12)o = C(15)w = C(23)r = C(18)d = C(4)if(h.lt.1 .or. e.lt.1 .or. l.lt.3 .or. &o.lt.2 .or. w.lt.1 .or. r.lt.1 .or. &d.lt.1) thenprint '(i0)',0elseml = get_maxl(l)mo = get_maxo(o)print '(i0)',h*e*ml*mo*w*r*dend ifcontainsfunction get_maxl(l) result(m)integer*8::i,m,lm = 1do i=2,l-1m = MAX(m, (l-i)*i*(i-1)/2)end doend function get_maxlfunction get_maxo(o) result(m)integer*8::i,m,om = 1do i=1,o-1m = MAX(m, (o-i)*i)end doend function get_maxoend program main