結果

問題 No.1185 完全な3の倍数
コンテスト
ユーザー jj1guj
提出日時 2020-08-22 18:11:18
言語 Fortran
(gFortran 14.2.0)
結果
TLE  
実行時間 -
コード長 398 bytes
コンパイル時間 2,495 ms
コンパイル使用メモリ 31,616 KB
実行使用メモリ 15,688 KB
最終ジャッジ日時 2024-10-15 12:00:34
合計ジャッジ時間 9,014 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample -- * 3
other TLE * 1 -- * 38
権限があれば一括ダウンロードができます

ソースコード

diff # 

program main
    implicit none
    integer(8)::N,i,ans=0,flg,is
    read*,N
    do i=12,N,3
        if(i<=100)then
            ans=ans+1
        else
            flg=1
            is=i
            do while (is>0)
                if(mod(mod(is,10),3)/=0)flg=0
                is=is/10
            end do
            if(flg==1)ans=ans+1
        end if
    end do

    print'(i0)',ans
end program main
0