Thread View: cn.comp.lang.delphi
1 messages
1 total messages
Started by �ռ�super
Wed, 21 Dec 2005 03:47
delphi����̨��������
Author: �ռ�super
Date: Wed, 21 Dec 2005 03:47
Date: Wed, 21 Dec 2005 03:47
31 lines
1558 bytes
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
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads