rostr11.pas

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

var s:string;
    n,m,i:integer;
begin
write('s=');readln(s);
while s[1]=' 'do delete(s,1,1);
while s[length(s)]=' ' do delete(s,length(s),1);
i:=1;
while(i<length(s)) do
begin
if ((s[i]=' ')  and (s[i]=s[i+1]))  or ((s[i]=' ')and ((s[i+1]='.') or (s[i+1]=',') or (s[i+1]=';')))then
begin
delete(s,i,1);
dec(i);
end;
inc(i);
end;
write('textul devine:',s);
end.