viết chương trình nhập vào xâu A tính và in ra màn hình. số lượng khoảng trống trong câu xâu trên có bao nhiêu từ
1 câu trả lời
program khoangtrong;
uses crt;
var a:string;
d:byte;
begin
clrscr;
write('Nhap xau: '); readln(a);
d:=0;
for i:=1 to length(a) do
if a[i]=' '] then d:=d+1;
write('Trong A co ',d,' khong trong');
while a[1]=' ' do delete(a,1,1);
while a[length(a)]=' ' do delete(a,length(a),1);
while pos(' ',a)<>0 do delete(a,pos(' ',a),1);
d:=1;
for i:=1 to length(a) do
if a[i]=' ' then d:=d+1;
write('Trong xau co ',d,' tu');
readln;
end.
