結果

問題 No.736 約比
ユーザー s0j1sans0j1san
提出日時 2018-11-14 16:48:08
言語 Fortran
(gFortran 13.2.0)
結果
WA  
実行時間 -
コード長 452 bytes
コンパイル時間 837 ms
コンパイル使用メモリ 33,024 KB
実行使用メモリ 10,624 KB
最終ジャッジ日時 2024-06-06 20:00:19
合計ジャッジ時間 4,838 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge2
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 1 ms
10,624 KB
testcase_01 AC 1 ms
5,376 KB
testcase_02 AC 1 ms
5,376 KB
testcase_03 AC 1 ms
5,376 KB
testcase_04 AC 1 ms
5,376 KB
testcase_05 AC 9 ms
5,376 KB
testcase_06 AC 35 ms
5,376 KB
testcase_07 AC 32 ms
5,376 KB
testcase_08 AC 41 ms
5,376 KB
testcase_09 AC 18 ms
5,376 KB
testcase_10 AC 1 ms
5,376 KB
testcase_11 AC 1 ms
5,376 KB
testcase_12 AC 29 ms
5,376 KB
testcase_13 AC 28 ms
5,376 KB
testcase_14 AC 1 ms
5,376 KB
testcase_15 AC 1 ms
5,376 KB
testcase_16 AC 14 ms
5,376 KB
testcase_17 AC 35 ms
5,376 KB
testcase_18 WA -
testcase_19 WA -
testcase_20 AC 25 ms
5,376 KB
testcase_21 AC 19 ms
5,376 KB
testcase_22 AC 1 ms
5,376 KB
testcase_23 AC 38 ms
5,376 KB
testcase_24 AC 1 ms
5,376 KB
testcase_25 AC 1 ms
5,376 KB
testcase_26 AC 1 ms
5,376 KB
testcase_27 AC 1 ms
5,376 KB
testcase_28 AC 1 ms
5,376 KB
testcase_29 AC 1 ms
5,376 KB
testcase_30 AC 2 ms
5,376 KB
testcase_31 AC 1 ms
5,376 KB
testcase_32 AC 4 ms
5,376 KB
testcase_33 AC 1 ms
5,376 KB
testcase_34 AC 1 ms
5,376 KB
testcase_35 AC 1 ms
5,376 KB
testcase_36 AC 1 ms
5,376 KB
testcase_37 AC 1 ms
5,376 KB
testcase_38 AC 1 ms
5,376 KB
testcase_39 AC 2 ms
5,376 KB
testcase_40 AC 1 ms
5,376 KB
testcase_41 AC 1 ms
5,376 KB
testcase_42 AC 74 ms
5,376 KB
testcase_43 TLE -
testcase_44 -- -
testcase_45 -- -
testcase_46 -- -
testcase_47 -- -
testcase_48 -- -
testcase_49 -- -
testcase_50 -- -
testcase_51 -- -
testcase_52 -- -
testcase_53 -- -
testcase_54 -- -
testcase_55 -- -
testcase_56 -- -
testcase_57 -- -
testcase_58 -- -
testcase_59 -- -
testcase_60 -- -
testcase_61 -- -
testcase_62 -- -
testcase_63 -- -
testcase_64 -- -
権限があれば一括ダウンロードができます

ソースコード

diff # 

program main
  implicit none
  integer n
  integer(8) i,summer,j
  integer(8),allocatable,dimension(:)::a
  read(*,*)n
  allocate(a(n))
  read(*,*)a(1:n)
  i=2
  do while(i<int(sqrt(real(minval(a),8)))+2)
    summer=0
    do j=1,n
      summer=summer+mod(a(j),i)
    enddo

    if(summer==0)then
      a=a/i
      i=i-1
    endif
    i=i+1
  enddo
  do i=1,n-1
    write(*,"(i0,a1)",advance="NO")a(i),":"
  enddo
  write(*,"(i0)")a(n)
end program main
0