用turbo pascal做下列程序

来源：百度知道 编辑：UC知道 时间：2024/06/08 17:36:19
1、输入三个整数,用这3个数组成若干个三位数,请输出其中最大的那个三位数。例如：1，2，3 输出321
2、输入字符，如果输入字符为A，B，C，D或a，b，c，d，则输出对应数字为1，2，3，4，如果输入其他字符，则输出999
3、输入一个英文字母，编写程序判断它是否是大写字母

1.
program df;
var a:array[1..3]of integer;
i,j,t:integer;
begin
for i:=1 to 3 do
readln(a[i]);
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]<a[j] then begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
writeln(a[1]*100+a[2]*10+a[3]);
end.
2.
var a:char;
begin
readln(a);
if (a='a')or(a='A')then writeln('1')
else if (a ='b')or(a='B') then writeln('2')
else if (a='c')or(a='C') then writeln('3')
else if (a='d')or(a='D') then writeln('4')
else writeln('999');
end.
3.
var a:char;
begin
readln(a);
if upcase(a)=a then writeln('shi')
else writeln('fou');
end.
错了找我.

1.
var
a:array[1..1000] of integer;
i,j,t:integer;
begin
for i:=1 to 3 do
read(a[i]);
for i:=1 to