作业帮 > 综合 > 作业

PASCAL 输入一个英文句子,将里面每一个单词的首写字母换成大写字母……

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/02 14:13:58
PASCAL 输入一个英文句子,将里面每一个单词的首写字母换成大写字母……
简单一点……12点无效……
又是我.
var s:string;
i:longint;
begin
readln(s);
if s[1]' '
then s[1]:=chr(ord(s[1])-32);
for i:=2 to length(s) do
if s[i]=' '
then s[i+1]:=chr(ord(s[i+1])-32);
writeln(s);
end.