★教えて君五大要素★ についたコメント

14  名前::2009/07/04(土) 15:47:51  ID:DfvoTsBU PCからの投稿
＼(＾o＾)／ﾃﾞｷﾀﾖｰ
       integer a,b,c
   30 write(*,*) "探した？　はい→１　いいえ→０"
      read *,a
      if(a.eq.0) goto 10
      write(*,*) "見つかった？ はい→１　いいえ→０"
      read *,b
      if(b.eq.0) then
      write(*,*) "じゃあねぇよ死ね"
      else
      write(*,*) "じゃあ聞くな死ね"
      endif
      goto 20
   10 write(*,*) "死ね"
   20 continue
      goto 30
      stop
      end
4 ｲｲ!ｺﾒﾝﾄ
コピペに戻る