pascal编程问题秦朝末年，楚汉相争。相传有一次，韩信将1500名将士与楚王大将李锋交战。双方大战一场，楚军不敌，败退回营。而汉军也有伤亡，只是一时还不知伤亡多少。于是，韩信整

Question

pascal 编程问题
秦朝末年，楚汉相争。相传有一次，韩信将1500名将士与楚王大将李锋交战。双方大战一场，楚军不敌，败退回营。而汉军也有伤亡，只是一时还不知伤亡多少。于是，韩信整顿兵马也返回大本营，准备清点人数。当行至一山坡时，忽有后军来报，说有楚军骑兵追来。韩信驰上高坡观看，只见远方尘土飞扬，杀声震天。汉军本来已经十分疲惫了，这时不由得人心大乱。韩信仔细地观看敌方，发现来敌不足五百骑，便急速点兵迎敌。不一会儿，值日副官报告，共有1035人。他还不放心，决定自己亲自算一下。于是命令士兵3人一列，结果多出2名；接着，他又命令士兵5人一列，结果多出3名；再命令士兵7人一列，结果又多出2名。韩信马上向将士们宣布：值日副官计错了，我军共有10XX名勇士，敌人不足五百，我们居高临下，以众击寡，一定能打败敌人。汉军本来就信服自己的统帅，这一来更相信韩信是“神仙下凡”、“神机妙算”，于是士气大振。一时间旌旗摇动，鼓声喧天，汉军个个奋勇迎敌，楚军顿时乱作一团。交战不久，楚军大败而逃。
请编程计算韩信此时有多少勇士？

Answer 1

1073人
程序代码：
var
i:longint;
begin
for i:=1000 to 1500 do
if ((i-2) mod 3=0) and ((i-3) mod 5=0) and ((i-2) mod 7=0) then break;
writeln(i);
end.