pascal 编程 从键盘输入一段英文,将其中的英文单词分离出来:已知单词...
发布网友
共1个回答
热心网友
var
i,l:longint;
s,s1:string;
begin
readln(s);
l:=length(s); s1:='';
for i:=1 to l do
if (s[i] in['a'..'z']) or (s[i] in['A'..'Z']) then s1:=s1+s[i]
else begin
if s1<>'' then writeln(s1);
s1:='';
end;
end.
你的问题是从哪来的？
