ro22p108.pas

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

var s,t:string;
    v:array[1..100]of integer;
    i,j,max,p:integer;
begin
write('s=');
readln(s);
while(s[1]=' ') do delete (s,1,1);
s:=s+' ';
i:=1;
while i<=length(S) do
                   begin
                   if (s[i]=' ') and (s[i+1]=' ') then
                                                  begin
                                                  delete(s,i,1);
                                                  dec(i);
                                                  end;
                    inc(i);
                    end;


repeat
p:=pos(' ',s);
if p<>0 then
        begin
        v[i]:=p-1;
        writeln( v[i]);
        inc(i);
        delete(s,1,p);

        end;
until p=0;
readln;
end.