第九课：输出1,2,4,8,16……，超过1000时停止
发表时间：2002-10-03 00:00:00 关键词：奥赛,PASCAL,编程,源码
(点击：) 把这篇文章告诉我的QQ或MSN朋友
program proWhile(input,output);
var
a:integer;
begin
a:=1;
while a<1000 do
begin
writeln(a);
a:=a+a;
end;
end.
本站特约顾问律师常州东晟律师事务所朱立律师（电话13915029670，QQ646146109）提醒您：
本站文章皆为作者原创，其它媒体（包括但不限于报刊、杂志、网站、电视、电台）未经作者书面许可严禁转载（或部分摘录）！
本站文章皆为作者原创，其它媒体（包括但不限于报刊、杂志、网站、电视、电台）未经作者书面许可严禁转载（或部分摘录）！