結果
問題 |
No.207 世界のなんとか
|
ユーザー |
|
提出日時 | 2022-12-22 16:41:28 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
WA
|
実行時間 | - |
コード長 | 462 bytes |
コンパイル時間 | 145 ms |
コンパイル使用メモリ | 31,872 KB |
実行使用メモリ | 6,820 KB |
最終ジャッジ日時 | 2024-11-18 03:22:32 |
合計ジャッジ時間 | 1,361 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | WA * 14 RE * 5 |
ソースコード
program T implicit none integer(8)::a,b,c,d,e(100) read(*,*)a,b do c=a,b-a+1,1 do d=1,100,1 e(d)=10**d if(mod(c,3)==0)then write(*,*)c cycle else if(mod(c,10)==3)then write(*,*)c cycle else if(int(c/e(d))==3)then write(*,*)c cycle end if end do end do end program T