【入门】求数II pascal

问题描述：

【入门】求数II pascal
【试题描述】
在1—500中,找出能同时满足用3除余2,用5除余3,用7除余2的所有整数
【输入描述】
无
【输出描述】
若干个数
每行一个
1个回答 分类：综合 2014-12-12

问题解答：

我来补答
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.
 
 
展开全文阅读
剩余:2000字
上一页：壬
下一页：判断题。
也许感兴趣的知识