关于PASCAL程序设计的一道题的答案

来源：百度知道 编辑：UC知道 时间：2024/06/23 00:44:35
我现在是个初一的学生，现在请求网上的编程高手帮我做，以下是问题：用自然数300，262，205，167分别除以某整数A，所得到的余数均相同。求出整数A以及相除的余数？以上就要帮忙的问题啦，回答的答案最好像是个初学者的答案。

program sd;
var i,j,k,l,f:integer;
b:boolean;

begin
i:=2;{不写2就输出1了}
b:=false;
while not b do
begin
j:=300 mod i;
k:=262 mod i;
l:=205 mod i;
f:=167 mod i;
if (j=k)and(l=f)and(j=l) then begin
writeln(i,' ',300 mod i);
b:=true;
end
else i:=i+1;
end;
end.