谁能帮我用delphi编写“输出1000以内3的倍数”

来源：百度知道 编辑：UC知道 时间：2024/06/06 13:19:35
各位计算机编程高手们，谁能帮我用delphi编写出“输出1000以内3的倍数”的代码啊？我有急用！在线等待啊！
还有输出九九乘法表的代码，谢谢大家了。
能提供两个的，追加50分！谢谢大家！

procedure TForm1.btn1Click(Sender: TObject);//输出1000以内3的倍数
var
i,C: Integer;
begin
i:=1; C:=0;
while I*3<1000 do
begin
C:=I*3;
Inc(I);
mmo1.Lines.Add(IntToStr(C));
end;
end;

procedure TForm1.btn2Click(Sender: TObject);//九九乘法表
var
S: string;
i,j: Integer;
begin
for I:=1 to 9 do
begin
S:='';
for j:=1 to i{或9} do
begin
//S:=S+' '+IntToStr(j)+'*'+IntToSTr(i)+'='+IntToStr(I*j);
//if 10>I*J then S:=S+' ';
{不用format用上面的也行}S:=S+' '+Format('%d*%d=%2d',[j,i,i*j]);
end;
mmo1.Lines.Add(S);
end;
end;