UC知道pascal的问题，急！！
来源：百度知道 编辑：UC知道 时间：2024/05/15 10:57:42
输入字符，将字符A，B，C，D或a,b,c,d转换成1，2，3，4，其余的转成5。
program name;
var chr:char;
begin
read(chr);
case chr of
(
)
else write('5');
end;
end.
program name;
var chr:char;
begin
read(chr);
case chr of
(
)
else write('5');
end;
end.
program name;
var chr:char;
begin
read(chr);
case chr of
'A','a':write('1');
'B','b':write('2');
'C','c':write('3');
'D','d':write('4')
else write('5');
end;
end.
\'A\',\'a\':write(\'1\');
\'B\',\'b\':write(\'2\');
……
明白了嘛？
...怪里怪气的