编一个程序，急！！！！

program work;
var
i:char;
begin
for i:='z' downto 'a' do
write(i,' ');
writeln;
end.

这个貌似不是很难啊。。。虽然我不会Pascal....一点都不会。。。
找个数组，把a到z都存入进去。
用个循环倒序输出就可以了。

用队列算法做,先进后出!

- -||||||||||||||
var
i:char;
begin
for i:='Z' downto 'A' do write(i:2);
readln;
end.

小菜一碟。连数组都不要用。
program zimu;
Var n:char;
begin
for n:='z' dowoto 'a' do write(n,'':3);
readln;
end.
和楼上差不多。