您所在位置：主题：读程题。。。为什么答案和运行结果不一样？
trojankiss
[专家分：0] 发布于 2006-07-08 17:38:00
program program1;
var a,b,c,d,sum:longint;
begin
read(a,b,c,d);
a:=a mod 23; b:=b mod 28; c:=c mod 33;
sum:= a*5544+ b* 14421 +c*1228-d;
sum:=sum+21252; sum:=sum mod 21252;
if (sum=0) then sum:=21252;
writeln(sum);
end.
我的结果是7530，运行结果也是7530
（输入的是 238 102 23 320）
但是标准答案。。。。8910
请问各位为什么
var a,b,c,d,sum:longint;
begin
read(a,b,c,d);
a:=a mod 23; b:=b mod 28; c:=c mod 33;
sum:= a*5544+ b* 14421 +c*1228-d;
sum:=sum+21252; sum:=sum mod 21252;
if (sum=0) then sum:=21252;
writeln(sum);
end.
我的结果是7530，运行结果也是7530
（输入的是 238 102 23 320）
但是标准答案。。。。8910
请问各位为什么
