1.输出100-300之间不能被3整除的数。
2.设S=1*2*3*…8n,求s不大于***********时最大的n.
3.输入初始值，输出100个不能被3整除的数。
4.在组合框中输入一批整数，统计其中的偶数个数和奇数个数。
參考答案:这是基本的算法。一般的Pascal基础书上都有的，强烈建议看一下相关书本，对你以后的学习有好处的。以下写下Pascal程序片断，你可以使用Memo来输出：
1.mod用来取余，余数为0则整除
2.实际是取循环次数
i := 1; s := 1;
do
s := s * i
i := i + 1
while s >= ***********
writeln(i)
3.同1
4.同1
