rostr9.pas

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

var  s:string;
     n,i:integer;
begin
write('s=');readln(s);
n:=length(s);
while (s[1]=' ') and (n<>0) do
                            delete(s,1,1);
 for i := 1 to n do
        while (s[i]=s[i+1]) and (s[i+1]=' ') do delete(s,i,1);
write('noul text',s);
readln;
end.