rostr6.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 13 行

var s:string;
    n:integer;
begin
write('s=');
readln(s);
repeat
n:=pos(' ',s);
if n<>0 then delete(s,n,1);
until n=0;
write(s);
readln;
end.