pascal单词统计Description 输入一串英文句子,统计该英文句子中英文单词的个数,并将单词个数输出.Inpu

var
c:char;
s:integer;
t:boolean;
begin
repeat
read(c);
t:=false;
while (c in['a'..'z'])or(c in['A'..'Z']) do
begin
t:=true;
read(c);
end;
if t then inc(s);
until c=chr(13);
writeln(s);
end.
SB
再问： 加Q
再答： sb
再问： pascal寻找最小的M怎么做？ 顺便做了守形的代价！ 爆了，300分！
再答： 再提问新一个的
再问： 早提好了
再答： 发我