program T01 implicit none integer::a,b,c read(*,*)a !100円硬貨 read(*,*)b !25円硬貨 read(*,*)c !1円硬貨 if(c>=25)then b=b+int(c/25) c=mod(c,25) end if if(b>=4)then a=a+int(b/4) b=mod(b,4) end if if(a>=10)then a=mod(a,10) end if write(*,*)a+b+c end program T01