結果

問題 No.32 貯金箱の憂鬱
コンテスト
ユーザー con
提出日時 2018-10-29 15:11:03
言語 Fortran
(gFortran 16.1.0)
コンパイル:
gfortran-16 _filename_ -O2 -o ./a.out
実行:
./a.out
結果
AC  
実行時間 1 ms / 5,000 ms
+ 94µs
コード長 299 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 1,460 ms
コンパイル使用メモリ 39,512 KB
実行使用メモリ 9,728 KB
最終ジャッジ日時 2026-08-23 20:53:47
合計ジャッジ時間 2,509 ms
ジャッジサーバーID
（参考情報） 		judge1_0 / judge3_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 12
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

implicit none
integer(8) a,b,c,l,m,n
read(*,*) l
read(*,*) m
read(*,*) n

a=((n*1)/25)

if (.not.a==0) then
       m=m+a
       n=n-a*25
end if

b=((m*25)/100)

if (.not.b==0) then
       l=l+b
       m=m-b*4
end if

c=((l*100)/1000)

if (.not.c==0) then
       l=l-c*10
end if

write(*,*) l+m+n
end
0