来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/09/25 12:37:18
【入门】求数II pascal
【试题描述】
在1—500中,找出能同时满足用3除余2,用5除余3,用7除余2的所有整数
【输入描述】
无
【输出描述】
若干个数
每行一个
var i:longint;
begin
for i:=1 to 500 do begin
if (i mod 3=2)and(i mod 5=3)and(i mod 7=2) then writeln(i);
end;
end.
神马作文网