rocpg29.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 27 行

program b99pg100;
var i,n,p,j:integer;
begin
write ('n=');readln(n);
p:=0;
for i:=1 to n do
begin
if (i mod 2)=1 then begin
                    for j:=1 to i  do
                              begin
                              p:=p+1;
                              write(p);
                              end;
                              write(' ');
                    end;

if (i mod 2)=0 then
               begin
               p:=i;
               for j:=i downto 1 do begin
                                    if p<>0 then write(p);
                                    p:=j-1;
                                    end;
                                    write(' ');
               end;
end;
end.