主题：这个程序哪里出错了啊
飞上太空
[专家分：0] 发布于 2005-05-01 17:36:00
这个程序错在哪呀
program ddde;
var
a,b,c,d,s:integer;
begin
read(a,b,c,c);
s:=1000*a+100*b+10*c+d;
for s:=1000 to 9999 do
if s div 100 =10*a+b and s mod 100 =10*c+d
then write(s);
end.
if s div 100 =10*a+b and s mod 100 =10*c+d这一句的问题在哪呀
[color=FF0000][/color]
回复列表 （共10个回复）
沙发
sd5774188 [专家分：260] 发布于 2005-05-01 19:21:00
要加上括号
if （s div 100 =10*a+b） and （s mod 100 =10*c+d）
板凳
泡泡糖 [专家分：230] 发布于 2005-05-03 17:37:00
要加上括号！
3 楼
zhengly [专家分：0] 发布于 2005-05-07 06:48:00
加括号
4 楼
牛肉干 [专家分：0] 发布于 2005-05-16 18:43:00
read后面好像是（a,b,c,d)吧！[em12]
5 楼
zouxun [专家分：80] 发布于 2005-05-19 15:37:00
[em1]pascal 中不可以一个式子，两个等于
6 楼
扶晕精灵 [专家分：0] 发布于 2005-05-22 11:34:00
对，不像C语言里可以用&&连接
7 楼
天空飞雪 [专家分：960] 发布于 2005-05-22 12:26:00
程序有两处错了，正确的程序如下：
program ddde;
var
a,b,c,d,s:integer;
begin
read(a,b,c,d);
s:=1000*a+100*b+10*c+d;
for s:=1000 to 9999 do
if (s div 100 =10*a+b )and (s mod 100 =10*c+d )
then write(s);
readln; readln;
end.
8 楼
mo19880630 [专家分：420] 发布于 2005-06-01 12:33:00
加括号
9 楼
cantion [专家分：0] 发布于 2005-06-05 23:59:00
不要打错字啊,这是很低级的错啊,还有符号也是啊
10 楼
qqzhu [专家分：0] 发布于 2005-06-08 15:05:00
350036038，求你了 帮我头一票吧。我在这个 我爱老婆音乐聊天网 申请管理员 还差几票就可以了 5555~~帮我投票啊 已经有 80多个QQ号码给我投票了 拜托你了 这绝对绝对不是病毒。赞助一下我吧 http://www.woailaopo.com/qq?id=0036038(350036038)
我来回复
您所在位置：