結果

問題 No.293 4>7の世界
ユーザー jj
提出日時 2016-08-08 22:45:22
言語 Fortran
(gFortran 14.2.0)
結果
AC  
実行時間 2 ms / 2,000 ms
コード長 713 bytes
コンパイル時間 2,459 ms
コンパイル使用メモリ 31,488 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-12-30 12:10:54
合計ジャッジ時間 3,277 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 4
other AC * 20
権限があれば一括ダウンロードができます

ソースコード

diff #
プレゼンテーションモードにする

  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
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0