编一个PASCAL程序!呜呜呜~SOS

各位叔叔阿姨大哥大姐大妈大姨爷爷奶奶，

偶有一问题要SOS！

编一个PASCAL程序，判断输入的字母素8素大写字母！

- -

var
c:char;
begin
writeln('请输入一个字符：');
readln(c);
if(c>='A')and(c<='Z')then
writeln('是大写字母')
else
writeln('不是大写字母');
readln;
end.

var

c:char;

begin

readln(c);{读入字符}

if (ord(c)>=65)and(ord(c)<=90) {字符'A'的ADSII码是65，'Z'是90}

then writeln('Yes')

else writeln('No');

readln

end.

if(c>='A')and(c<='Z')和if ('a'<=a)and(a<='z')也是用ADSII码的大小算的

if c in['A'..'Z']是根据集合的包含关系计算

upcase(一个字符）等于它的大写，如果它本身就是大写，那么它的值不变

var ch:char;

begin

read(ch);

if ch=upcase(ch) then writeln('YES') else writeln('NO');

end;

var

begin

read(c);

if c in['A'..'Z'] then writeln('Yes')

else writeln('No');

end.

本人以pascal比赛前200名的身份回答此问题，希望楼主满意

program exam；

var a:integer;

begin

readln(a);

if ('a'<=a)and(a<='z') then a:=chr(ord(a)-32);

writeln（a）;

end.

结束了，楼主以后有更难的问题也可以问我

输入的字母素8素大写字母

这句话是什么意思？

谢谢