NPSC補完計劃

登入註冊帳號.

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

最新消息:

歡迎光臨NPSC補完計劃

+ NPSC補完計劃 » NPSC國中組 » NPSC2008國中組決賽
 [PASCAL]E. 铺地砖

作者 主題: [PASCAL]E. 铺地砖  (閱讀 1494 次)

liouzhou_101

  • 初級會員
  • **
  • 文章數: 44
    • 檢視個人資料
[PASCAL]E. 铺地砖
« 於: 七月 12, 2010, 12:10:14 pm »

输入房间和地砖的长和宽,看是否可以密铺。
解法:只要判断地砖的长和宽是否可以整除房间的长和宽就可以了。
代碼: [選擇]
var l,w,x,y : longint;
begin
  readln(l,w,x,y);
  while not ((l=0) and (w=0) and (x=0) and (y=0)) do begin
    if l*w=x*y then writeln(1) else
    if (l mod x<>0) or (w mod y<>0) then writeln(-1)
      else writeln(l*w div (x*y));
    readln(l,w,x,y);
  end;
end.
記錄
+ NPSC補完計劃 » NPSC國中組 » NPSC2008國中組決賽
 [PASCAL]E. 铺地砖