用FREE PASCAL 作题 从键盘上读入小写的“pascal”,利用CHR()和ORD()函数,输出大写的“PASC
收藏:
0
点赞数:
0
评论数:
0
1个回答

program Water;

var s:string;

i:longint;

begin

read(s);

for i:=1 to length(s) do

begin

s[i]:=chr(ord(s[i])-32);

end;

writeln(s);

end.

点赞数:
0
评论数:
0
关注公众号
一起学习,一起涨知识