我就发作业
了

算了，还是发吧。

1.（a，b，c，d中选三个，输出所有的可能）
var
i,j,k:char;
begin
for i:='a' to 'd' do
for j:='a' to 'd' do
for k:='a' to 'd' do
if (i<>j) and (j<>k) and (k<>i) then writeln(i,j:3,k:3);
readln
end.


2.（a，b，c，d中三个数组合）
var
i,j,k:char;
begin
for i:='a' to 'b' do
for j:=chr(ord(i)+1) to 'c' do
for k:=chr(ord(j)+1) to 'd' do
writeln(i,j:3,k:3);
readln
end.

3.（五个数组合三位数），（可能性加数量）
var
i,j,k:char;
n:longint;
begin
n:=0;
for i:='1' to '5' do
for j:='1' to '5' do
for k:='1' to '5' do
begin
write(i,j,k,' ');
n:=n+1;
end;
writeln('n=',n);
readln
end.


快批啦

对对对

第一个

第一个过

不是吧。。。。。这次真的没作业贴？