登陆
浏览模式: 标准 | 列表 Tag: Delphi

1 to 9的Delphi代码

代码:
program Project1;
{$APPTYPE CONSOLE}
var i,n:integer;
begin
  for i:=1 to 9 do
    begin
      for n:=1 to i do
      write(i*n:3);
    writeln;
    end;
   readln;
end.

点击在新窗口中浏览此图片
9 to 1的如下图
点击在新窗口中浏览此图片

Tags: Delphi

Total:22‹ Prev123