UC知道有红、橙、黄、绿、蓝的小旗，每次取出三种不同颜色的小旗表示不同的信号，输出所有信号的方案及方案总数
来源：百度知道 编辑：UC知道 时间：2024/06/18 09:13:02
求求啦！急！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
要现成的pascal程序！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
回答的越早，悬赏分越多！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
要现成的pascal程序！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
回答的越早，悬赏分越多！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
program flag(input,output);
var
a,b,c:char;
d:word;
begin
d:=0;
for a:='a' to 'e' do
for b:='a' to 'e' do
for c:='a' to 'e' do
if (a<>b)and(a<>c)and(b<>c) then begin
inc(d);
case a of
'a':write('Red ');
'b':write('Orange ');
'c':write('Yellow ');
'd':write('Green ');
'e':write('Blue ');
end;
case b of
'a':write('Red ');
'b':write('Orange ');
'c':write('Yellow ');
'd':write('Green ');
'e':write('Blue ');
end;
case c of
'a':write('Red