14122022-09-04 20:33:36ncsOszthatóság 31-gyeljuliaMemórialimit túllépés 0/503ms3216 KiB
ret=Int[parse(Int,readline())]
while true
  x,r=divrem(ret[end],10)
  x-=3r
  (x<0)&&break
  push!(ret,x)
  (x==0)&&break
end
["IGEN","NEM"][1+(ret[end]%31>0)]|>println
join(ret[2:end]," ")|>println
RészfeladatÖsszpontTesztVerdiktIdőMemória
base0/50
1Memórialimit túllépés0/03ms1540 KiB
2Memórialimit túllépés0/02ms1740 KiB
3Memórialimit túllépés0/32ms1892 KiB
4Memórialimit túllépés0/32ms1896 KiB
5Memórialimit túllépés0/42ms1964 KiB
6Memórialimit túllépés0/42ms2020 KiB
7Memórialimit túllépés0/42ms2192 KiB
8Memórialimit túllépés0/42ms2404 KiB
9Memórialimit túllépés0/42ms2416 KiB
10Memórialimit túllépés0/42ms2604 KiB
11Memórialimit túllépés0/42ms2828 KiB
12Memórialimit túllépés0/42ms2972 KiB
13Memórialimit túllépés0/42ms3064 KiB
14Memórialimit túllépés0/42ms3080 KiB
15Memórialimit túllépés0/22ms3216 KiB
16Memórialimit túllépés0/22ms3144 KiB