求1道turbo pascal题目的解法

求1道turbo pascal题目的解法
用自然数300,205,167分别除以某整数A,所得的余数均相同.求出整数A以及相除的余数
请用turbo pascal格式
要把晶粒 1年前 已收到1个回答 举报
赞

caoacao 幼苗

共回答了21个问题采纳率：90.5% 举报

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.

1年前

10
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.021 s. - webmaster@yulucn.com