作业帮 > 综合 > 作业

在1-500中,找出能同时满足用3除余2,用5除余3,用7除余2的所有整数.用pascal

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/09/01 05:42:20
在1-500中,找出能同时满足用3除余2,用5除余3,用7除余2的所有整数.用pascal
program xx;
var i:longint;
begin
for i:=1 to 500 do
if (i mod 3=2) and (i mod 5=3) and (i mod 7=2) then writeln(i);
end.