結果
問題 | No.293 4>7の世界 |
ユーザー | jj |
提出日時 | 2016-08-08 22:45:22 |
言語 | Fortran (gFortran 13.2.0) |
結果 |
AC
|
実行時間 | 2 ms / 2,000 ms |
コード長 | 713 bytes |
コンパイル時間 | 1,186 ms |
コンパイル使用メモリ | 27,060 KB |
実行使用メモリ | 4,380 KB |
最終ジャッジ日時 | 2023-08-28 22:12:36 |
合計ジャッジ時間 | 1,935 ms |
ジャッジサーバーID (参考情報) |
judge15 / judge14 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 1 ms
4,380 KB |
testcase_01 | AC | 1 ms
4,380 KB |
testcase_02 | AC | 1 ms
4,376 KB |
testcase_03 | AC | 1 ms
4,380 KB |
testcase_04 | AC | 1 ms
4,380 KB |
testcase_05 | AC | 1 ms
4,376 KB |
testcase_06 | AC | 1 ms
4,376 KB |
testcase_07 | AC | 1 ms
4,380 KB |
testcase_08 | AC | 1 ms
4,376 KB |
testcase_09 | AC | 2 ms
4,376 KB |
testcase_10 | AC | 1 ms
4,376 KB |
testcase_11 | AC | 1 ms
4,376 KB |
testcase_12 | AC | 1 ms
4,380 KB |
testcase_13 | AC | 1 ms
4,376 KB |
testcase_14 | AC | 1 ms
4,380 KB |
testcase_15 | AC | 1 ms
4,376 KB |
testcase_16 | AC | 1 ms
4,380 KB |
testcase_17 | AC | 1 ms
4,376 KB |
testcase_18 | AC | 1 ms
4,380 KB |
testcase_19 | AC | 1 ms
4,376 KB |
testcase_20 | AC | 2 ms
4,376 KB |
testcase_21 | AC | 1 ms
4,376 KB |
testcase_22 | AC | 1 ms
4,376 KB |
testcase_23 | AC | 1 ms
4,376 KB |
ソースコード
character*10::A,B character::numa,numb integer::lena,lenb,i read *,A,B lena = LEN_TRIM(A) lenb = LEN_TRIM(B) if(lena.gt.lenb) then print '(a)', TRIM(A) else if(lenb.gt.lena) then print '(a)', TRIM(B) else do i=1,lena numa = A(i:i) numb = B(i:i) if(numa.eq.numb) cycle if(numa.eq.'7' .and. numb.eq.'4') then print '(a)', TRIM(B) exit else if(numa.eq.'4' .and. numb.eq.'7') then print '(a)', TRIM(A) exit else if(numa.gt.numb) then print '(a)', TRIM(A) exit else print '(a)', TRIM(B) exit end if end do end if end program