NPSC補完計劃

登入註冊帳號.

請輸入帳號, 密碼以及預計登入時間
進階搜尋  

最新消息:

歡迎光臨NPSC補完計劃

+ NPSC補完計劃 » NPSC國中組 » NPSC2009國中組初賽
 [Pascal]C.一定中大乐透

作者 主題: [Pascal]C.一定中大乐透  (閱讀 1891 次)

liouzhou_101

  • 初級會員
  • **
  • 文章數: 44
    • 檢視個人資料
[Pascal]C.一定中大乐透
« 於: 一月 10, 2010, 04:33:42 pm »

说明:输入两个数n,m。如果它们都是奇数或偶数则输出Win,否则输出Loss。
解法:判断两个数除以2的余数十分相等,相等就输出Win,否则输出Loss。
超级简单题!
代碼: [選擇]
(**********************************************************************************) 
(*  Problem: d590 "C. 一定中大樂透" from 2009 NPSC 國中組初賽          *) 
(*  Language: PASCAL                                                              *) 
(*  Result: AC (6ms, 598KB) on ZeroJudge                                          *) 
(*  Author: liouzhou_101 at 2009-12-27 22:04:47                                   *) 
(**********************************************************************************) 
 
var n,m : shortint;   
begin 
  while true do begin 
    read(n,m);   
    if n+m=0 then exit;   
    if n mod 2=m mod 2 then writeln('Win')   
      else writeln('Loss');   
  end;   
end. 
記錄
+ NPSC補完計劃 » NPSC國中組 » NPSC2009國中組初賽
 [Pascal]C.一定中大乐透