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ừ

Question

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ừ

hienchau · Answer

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.

0 bình luận về “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ừ”