pascal編程題 兩道

var n,i,len:integer;

a:array[1..100] of integer;

begin

readln(n);

len:=0;

repeat

inc(len);

a[len]:=n mod 2;

n:=n div 2;

until n=0;

for i:=len downto 1 do write(a[i]);

end.

2.

var n,i,j,space,var1:integer;

begin

readln(n);

space:=0;

var1:=0;

for i:=1 to n do

begin

for j:=1 to space do write(' ');

for j:=1 to n-var1 do write('e ');

inc(space);

inc(var1);

writeln;

end;

end.