用FREE PASCAL 作题 从键盘上读入小写的“pascal”，利用CHR（）和ORD（）函数，输出大写的“PASC

用FREE PASCAL 作题 从键盘上读入小写的“pascal”，利用CHR（）和ORD（）函数，输出大写的“PASCAL”。
apollo704 1年前 已收到1个回答 举报
赞

bqc22 幼苗

共回答了16个问题采纳率：100% 举报

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.

1年前

2
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 17 q. 0.114 s. - webmaster@yulucn.com