Viết chương trình nhập vào 1 xâu bất kỳ. Hãy chuẩn hóa xâu đó theo quy tắc sau: - Xóa các dấu cách trước các dấu câu (.) (,) (;) Giúp mình với ạ. Nếu đúng hứa sẽ vote 5* và ctlhn ạ.
1 câu trả lời
program Hello;
uses crt;
var s:string;
i,d:integer;
begin
clrscr;
readln(s);
for i:= 1 to length(s) do
begin
d:= 1;
if (s[i] = '.') or (s[i] = ',') or (s[i] = ';') then
while s[i - d] = ' ' do
begin
delete(s,i-d,1);
inc(d);
end;
end;
writeln(s);
end.
