結果

問題 No.5003 物理好きクリッカー
ユーザー jj1gujjj1guj
提出日時 2020-06-05 18:25:47
言語 Fortran
(gFortran 13.2.0)
結果
WA  
(最新)
AC  
(最初)
実行時間 -
コード長 398 bytes
コンパイル時間 246 ms
実行使用メモリ 21,948 KB
スコア 530,839
平均クエリ数 10000.00
最終ジャッジ日時 2021-07-19 11:41:39
合計ジャッジ時間 3,806 ms
ジャッジサーバーID
（参考情報） 		judge11 / judge12
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 WA -
testcase_01 WA -
testcase_02 WA -
testcase_03 AC 41 ms
21,360 KB
testcase_04 WA -
testcase_05 AC 40 ms
21,792 KB
testcase_06 WA -
testcase_07 AC 40 ms
21,516 KB
testcase_08 WA -
testcase_09 WA -
testcase_10 WA -
testcase_11 AC 43 ms
21,912 KB
testcase_12 WA -
testcase_13 AC 42 ms
21,372 KB
testcase_14 WA -
testcase_15 AC 42 ms
21,528 KB
testcase_16 AC 41 ms
21,528 KB
testcase_17 AC 41 ms
21,864 KB
testcase_18 WA -
testcase_19 AC 41 ms
21,360 KB
testcase_20 AC 41 ms
21,372 KB
testcase_21 WA -
testcase_22 AC 41 ms
21,360 KB
testcase_23 WA -
testcase_24 AC 39 ms
21,948 KB
testcase_25 AC 40 ms
21,516 KB
testcase_26 AC 40 ms
21,552 KB
testcase_27 AC 41 ms
21,528 KB
testcase_28 AC 40 ms
21,372 KB
testcase_29 AC 40 ms
21,528 KB
testcase_30 AC 40 ms
21,876 KB
testcase_31 AC 41 ms
21,864 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

program y5003
    implicit none
    integer(8)::N,i,get=0,flg=0
    character(10000)::S
    read*,N,S

    do i=1,N
        if(get>=150.and.flg==0)then
            print'(A)',"buy hand"
            get=get-150
            flg=1
        else if(i==N)then
            print'(A)',"sell hand"
        else
            print'(A)',"click"
            get=get+1
        end if
    end do
end program y5003
0