作业帮求1道turbo pascal题目的解法
来源：学生作业帮 编辑：作业帮 分类：英语作业 时间：2024/05/12 17:57:27
求1道turbo pascal题目的解法
用自然数300,205,167分别除以某整数A,所得的余数均相同.求出整数A以及相除的余数
请用turbo pascal格式
用自然数300,205,167分别除以某整数A,所得的余数均相同.求出整数A以及相除的余数
请用turbo pascal格式
var i,num1,num2,num3:integer;
begin
for i:=1 to 167 do
begin
num1:=300 mod i;
num2:=205 mod i;
num3:=167 mod i;
if (num1=num2)and(num2=num3) then
writeln(i,' ',num1);
end;
end.
begin
for i:=1 to 167 do
begin
num1:=300 mod i;
num2:=205 mod i;
num3:=167 mod i;
if (num1=num2)and(num2=num3) then
writeln(i,' ',num1);
end;
end.