Delphi程序设计，有问题要问？？？？

来源：百度知道 编辑：UC知道 时间：2024/05/21 13:12:37
1.输出100-300之间不能被3整除的数。
2.设S=1*2*3*…8n,求s不大于40000000时最大的n.
3.输入初始值，输出100个不能被3整除的数。
4.在组合框中输入一批整数，统计其中的偶数个数和奇数个数。

你的题也真是多，如果让我加悬赏分，我想我会加200了不过他的确是让我练习的好材料。我先写第一个吧，有时间再写另一个吧！
在某个事件中：
先定义变量
var
i:integer;
r:real;
s1,s2,s3,s4,s5,s6:string;//用于存储每行的字符串
用一个label显示。
for i:=1 to 50 do
begin
r:=i mod 3 ;
if r<>0 then
s1:=s1+' '+inttostr(i)
else
s1:=s1+'';
end;//for

for i:=51 to 100 do
begin
r:=i mod 3 ;
if r<>0 then
s2:=s2+' '+inttostr(i)
else
s2:=s2+'';
end;//for

for i:=101 to 150 do
begin
r:=i mod 3 ;
if r<>0 then
s3:=s3+' '+inttostr(i)
else
s3:=s3+'';
end;//for

for i:=151 to 200 do
begin
r:=i mod 3 ;
if r<>0 then
s4:=s4+' '+inttostr(i)
else