从1～100中找出能被5或7整除的数（(Pascal)找出被2 3 5除后余数1的最小的十位数）

大家好,小跳来为大家解答以上的问题。从1～100中找出能被5或7整除的数，(Pascal)找出被2 3 5除后余数1的最小的十位数这个很多人还不知道,现在让我们一起来看看吧！

1、i:=9; repeat i:=i+1; until ((i mod 2=1)and(i mod 3=1)and(i mod 5=1))or(i=99); write(i); {以上是关键代码段。

2、前后你都会写吧...}。

本文到此分享完毕，希望对大家有所帮助。