作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/23 03:33:47
PASCAL 输入一个英文句子,将里面每一个单词的首写字母换成大写字母……
简单一点……12点无效……
PASCAL 输入一个英文句子,将里面每一个单词的首写字母换成大写字母……
又是我.
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.