pascal 语言:输入一个英文句子,以‘.'结束,单词间用空格隔开。_百度知 ...答:var st,dc:string;p,s,d,k:longint;begin readln(st);readln(dc);p:=pos(dc,st);while p>0 do begin s:=s+1;delete(st,1,p+length(dc));p:=pos(dc,st);end;if s=0 then begin for k:=1 to length(st) do if (ord(st[k])>=65)and(ord(st[k])<=90)or(ord(st...