3. 韩信点兵又称为中国剩余定理:相传汉高祖刘邦问大将军韩信统御兵士多少,韩信答说,每3人一列余1人、5人一列余2人、7人一列余4人、13人一列余6人……。刘邦茫然而不知其数。
program exExhaustive3_1;
const Maxnum = 100;
var
remainder3, remainder5, remainder7, num : integer;
begin
write('Please input 3 remainders (by 3, 5, 7): ');
readln(remainder3, remainder5, remainder7);
num := remainder7;
while num <= Maxnum do
begin
if (num mod 3 = remainder3) and (num mod 5 = remainder5) then writeln('The number maybe is ', num);
num := num+7;
end;
readln;
end.
const Maxnum = 100;
var
remainder3, remainder5, remainder7, num : integer;
begin
write('Please input 3 remainders (by 3, 5, 7): ');
readln(remainder3, remainder5, remainder7);
num := remainder7;
while num <= Maxnum do
begin
if (num mod 3 = remainder3) and (num mod 5 = remainder5) then writeln('The number maybe is ', num);
num := num+7;
end;
readln;
end.


浙公网安备 33010602011771号