Pascal问题：统计单词输入一行字符,包含若干个单词.约定相邻的两个单词用若干个空格隔开,编程统计其中单词的个数.输入说明：一行若干单词,由若干空格隔开（以句号结束）输出说明：一

Question

Pascal问题：统计单词
输入一行字符,包含若干个单词.约定相邻的两个单词用若干个空格隔开,编程统计其中单词的个数.
输入说明：一行若干单词,由若干空格隔开（以句号结束）
输出说明：一行一个整数,单词个数.
输入样例：
i love you.
输出样例：
3

Answer 1

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.
纯手打求最佳………………
不要不设置最佳哈