NPSC補完計劃

登入註冊帳號.

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

最新消息:

歡迎光臨NPSC補完計劃

+ NPSC補完計劃 » NPSC國中組 » NPSC2008國中組初賽
 [PASCAL]A. 优惠方案

作者 主題: [PASCAL]A. 优惠方案  (閱讀 1092 次)

liouzhou_101

  • 初級會員
  • **
  • 文章數: 44
    • 檢視個人資料
[PASCAL]A. 优惠方案
« 於: 七月 12, 2010, 12:14:22 pm »

简单地判断三个数是否相等就可以了。
代碼: [選擇]
var k,a,b,c,i : longint;
begin
  readln(k);
  for i:=1 to k do begin
    readln(a,b,c);
    if (a<>b) and (a<>c) and (b<>c) then writeln('YES')
      else writeln('NO');
  end;
end.
記錄
+ NPSC補完計劃 » NPSC國中組 » NPSC2008國中組初賽
 [PASCAL]A. 优惠方案