请高手帮我看看下面这段程序,用delphi编写的。想实现屏幕20次显示欢迎光临。现在问题是不循环。
programProject1;{$APPTYPECONSOLE}//usesSysUtils;vari:integer;begini:=0;ifi-20<0thenbe...
program Project1;
{$APPTYPE CONSOLE}
//uses SysUtils;
var
i:integer;
begin
i:=0;
if i-20<0 then
begin
writeln('欢迎光临!');
readln;
inc(i);
end
else
end. 展开
{$APPTYPE CONSOLE}
//uses SysUtils;
var
i:integer;
begin
i:=0;
if i-20<0 then
begin
writeln('欢迎光临!');
readln;
inc(i);
end
else
end. 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询