有红、橙、黄、绿、蓝的小旗,每次取出三种不同颜色的小旗表示不同的信号,输出所有信号的方案及方案总数要现成的pascal程序!回答的越早,
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/09 10:02:27
有红、橙、黄、绿、蓝的小旗,每次取出三种不同颜色的小旗表示不同的信号,输出所有信号的方案及方案总数要现成的pascal程序!回答的越早,
有红、橙、黄、绿、蓝的小旗,每次取出三种不同颜色的小旗表示不同的信号,输出所有信号的方案及方案总数
要现成的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 (ab)and(ac)and(bc) 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 ');
'b':write('Orange ');
'c':write('Yellow ');
'd':write('Green ');
'e':write('Blue ');
end;
writeln;
end;
writeln;
writeln('Total:',d);
end.