主题：求救啊各位~~~~
kansou2003
[专家分：0] 发布于 2007-04-02 10:50:00
如果a=1或2或3 和 b=2或3或4就输出Y,如果a=1或3或4 和 b=3或5或7就输出N,要怎么编
回复列表 （共3个回复）
沙发
lgr7000 [专家分：230] 发布于 2007-04-02 16:13:00
var
if ((a=1)or(a=2)or(a=3))and((b=2)or(b=3)or(b=4)) then write('Y') else
if ((a=1)or(a=3)or(a=4))and((b=3)or(b=5)or(b=7)) then write('N');
end.
板凳
bigchen [专家分：1940] 发布于 2007-04-02 21:48:00
程序同上
很好编的!
超级简单!
3 楼
万里长城 [专家分：340] 发布于 2007-05-11 16:10:00
[quote]var
if ((a=1)or(a=2)or(a=3))and((b=2)or(b=3)or(b=4)) then write('Y') else
if ((a=1)or(a=3)or(a=4))and((b=3)or(b=5)or(b=7)) then write('N');
end.[/quote]
错了，因该是：
var a,b:byte;
begin
readln(a,b);
if ((a=1)or(a=2)or(a=3))and((b=2)or(b=3)or(b=4)) then write('Y')
else if ((a=1)or(a=3)or(a=4))and((b=3)or(b=5)or(b=7)) then write('N')
else write('error');
rnd.
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 求救啊各位~~~~