delphi��̨��

Article View: cn.comp.lang.delphi

Article #8

Back to cn.comp.lang.delphi Previous Next

From: �ռ�super
Date: Wed, 21 Dec 2005 03:47

31 lines
1558 bytes

program shixun._ex1;�е�_ex1��ʲô��˼

program shixun1._ex1;   //???
{$APPTYPE CONSOLE}  //�������̨����
var n,s:integer;
begin
     write('n=?');
     readln(n);       //����Ļ�ϵȴ�������뵽n��
     S:=1;
     while s<n do
     begin
     if s mod 2=0 then writeln(s);  //s��2ȡ�࣬����0ʱsΪż��
     s:=s+1;
     end;
  readln;
end.

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

-- 
�ռ�super

Technical Details

Message-ID: <doaj8b$ep9$1@news.yaako.com>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news2.volia.net!newsfeed01.sul.t-online.de!t-online.de!news.cn99.com!news.yaako.com!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: 110c10,a6a7f9447d2182db,start
X-Google-Attributes: gid110c10,public
X-Google-Language: Chinese,GB
Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news2.volia.net!newsfeed01.sul.t-online.de!t-online.de!news.cn99.com!news.yaako.com!not-for-mail
From: "�ռ�super" <wanglei1985@gmail.com>
Newsgroups: cn.comp.lang.delphi
Subject: delphi����̨��������
Date: Wed, 21 Dec 2005 11:47:23 +0800
Organization: Bentium Ltd. (CN99)
Lines: 33
Message-ID: <doaj8b$ep9$1@news.yaako.com>
NNTP-Posting-Host: 221.15.150.104
X-Trace: news.yaako.com 1135136844 15145 221.15.150.104 (21 Dec 2005 03:47:24 GMT)
X-Complaints-To: usenet@news.yaako.com
NNTP-Posting-Date: Wed, 21 Dec 2005 03:47:24 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2180
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
X-RFC2646: Format=Flowed; Original

Article View: cn.comp.lang.delphi

delphi����̨��������

delphi��̨��