作业帮Pascal问题：统计单词
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/21 14:16:43
Pascal问题：统计单词
输入一行字符,包含若干个单词.约定相邻的两个单词用若干个空格隔开,编程统计其中单词的个数.
输入说明：一行若干单词,由若干空格隔开（以句号结束）
输出说明：一行一个整数,单词个数.
输入样例：
i love you.
输出样例：
3
输入一行字符,包含若干个单词.约定相邻的两个单词用若干个空格隔开,编程统计其中单词的个数.
输入说明：一行若干单词,由若干空格隔开（以句号结束）
输出说明：一行一个整数,单词个数.
输入样例：
i love you.
输出样例：
3
program Sta;
var ch:char;
T,i:longint;
begin
read(ch);
repeat
case ch of
' ':;
'.':break;
else
begin
T:=T+1;
while (ch'.') and (ch' ') do read(ch);
continue;
end;
end;
read(ch);
until false;
writeln(T);
end.
纯手打求最佳………………
不要不设置最佳哈
var ch:char;
T,i:longint;
begin
read(ch);
repeat
case ch of
' ':;
'.':break;
else
begin
T:=T+1;
while (ch'.') and (ch' ') do read(ch);
continue;
end;
end;
read(ch);
until false;
writeln(T);
end.
纯手打求最佳………………
不要不设置最佳哈