关于循环问题

Question

关于循环问题a:='0';
for i:=1 to 5 do 
 begin
   a:=a+inttostr(i);
 end;
最后得到a等于012345,那么怎样才可以得到a=01245 
谢谢

Answer 1

var a:string;
begin
for i:=0 to 5 do 
 begin
   if i<>3 then
    begin
      a:=a+inttostr(i);
    end;
 end;
end;

Answer 2

a:='0';
for i:=1 to 5 do 
 begin
    if i=3 then Continue;   
    a:=a+inttostr(i);
 end;

Answer 3

for i:=1 to 5 do 
 begin
   if i=3 then
     break;   
   a:=a+inttostr(i);
 end;

Answer 4

var i:integer;
a:string;
begin
  a:='0';
  for i:=1 to 5 do
    begin
      if i<>3 then
        begin
          a:=a+inttostr(i);
        end;
    end;
end;

Answer 5

yuhouyangguang(雨后阳光)给出答案是错误的！

Answer 6

yuhouyangguang(雨后阳光)给出答案是只能得到012

Answer 7

个人认为 DY2003(DY2003) 的答案最简洁

Answer 8

for i:=1 to 5 do 
 begin
   if i=3 then
     continue
   else
     a:=a+inttostr(i);
 end;

Answer 9

这样的问题也上CSDN啊………
啊门

Answer 10

i:=0;
while i<=5 do
begin
  if i<>3 then
  a := a+inttostr(i);
  i := i+1;
end;