Question

pascal的代码报错了，请帮忙改正一下

program e54; var a,b,i:longint; begin read(a,b); if (a<0) or (a<0) then begin abs(b); for i:=1 to b do dec(a); write(a); end ; else begin for i:=1 to b do inc(a); write(a); end; end.

Answer 1

语法上改好的程序(楼上的是水贴,你不用理的)
var
a,
b,
i:
longint;
begin
read(a,
b);
if
(a
<
0)
or
(b
<
0)
then
//判2个a<0什么意义??,应该是b<0吧
begin

b:=abs(b);
//仅仅是abs(b)不会改b的值的

for
i
:=
1
to
b
do

dec(a);

write(a);
end
else
//else的前面不能有分号的
begin
for
i
:=
1
to
b
do

inc(a);
write(a);
end;
end.