結果

問題 No.73 helloworld
ユーザー jjjj
提出日時 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
権限があれば一括ダウンロードができます

ソースコード

diff #
プレゼンテーションモードにする

program main
implicit none
integer*8::C(26)
integer*8::h,e,l,o,w,r,d,ml,mo
read *,C
h = 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) then
print '(i0)',0
else
ml = get_maxl(l)
mo = get_maxo(o)
print '(i0)',h*e*ml*mo*w*r*d
end if
contains
function get_maxl(l) result(m)
integer*8::i,m,l
m = 1
do i=2,l-1
m = MAX(m, (l-i)*i*(i-1)/2)
end do
end function get_maxl
function get_maxo(o) result(m)
integer*8::i,m,o
m = 1
do i=1,o-1
m = MAX(m, (o-i)*i)
end do
end function get_maxo
end program main
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0