pascal输入一行英文句子,统计英文单词的个数.重复的算一个.如The=the输入一行英文句子,句子中只有英文单词和空格.每个单词之间由若干个空格隔开,英文单词由大小写字母组成.统计此句子中

Question

pascal 输入一行英文句子,统计英文单词的个数.重复的算一个.如The=the
输入一行英文句子,句子中只有英文单词和空格.每个单词之间由若干个空格隔开,英文单词由大小写字母组成.统计此句子中的单词个数.假定重复出现的单词只计一次,且认为大小写字母是相同的,如’The’和’the’是同一个单词.

Answer 1

var
a:array [1..27] of longint;
i,j,k:longint;
s:string;
begin
readln(s);
for i:=1 to 27 do
begin
if (ord(s[i])>64) and (ord(s[i])96) and (ord(s[i])