結果

問題 No.5003 物理好きクリッカー
ユーザー jj1guj
提出日時 2020-06-05 18:25:47
言語 Fortran
(gFortran 14.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
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 19 WA * 13
権限があれば一括ダウンロードができます

ソースコード

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