Nhập vào từ bàn phím xâu S bất kì.Đếm xem có bao nhiêu dấu cách trong xâu S. Xóa tất cả dấu cách có trong xâu S
2 câu trả lời
Program FNG;
Uses crt;
Var S: String;
i,d: longint;
Begin
Clrscr;
Write('Nhap S: '); Readln(S);
d:=0;
For i:=1 to length(S) do
If S[i]=#32 then
inc(d);
Writeln('Co ',d,' dau cach');
For i:=1 to length(S) do
While S[i]=#32 do Delete(S,i,1);
Write(S);
Readln
End.
program Tin_hoc;
uses ccrt;
var i,k:integer;
s1,s2:string;
begin
clrscr;
writeln('Nhap xau S:);readln(s1);
k:=0;s2:='';
for i: =1 to length (s1) do if ord(s1[i]) = 32 then inc(k) else s2:=s2+s1[i];
writeln('Xau S da bi xoa dau cach:',s2);
readln;
end.
Câu hỏi trong lớp
Xem thêm
