nhập vào 1 xâu. đưa ra số từ của xâu (xâu nhập là xâu chuẩn hóa)

Question

nhập vào 1 xâu.  đưa ra số từ của xâu (xâu nhập là xâu chuẩn hóa)

lanhuong · Answer

Var s: string;           d, i: byte;       Begin           d:=1;           Write('nhap xau: '); readln(s);           For i:=1 to length(s) do if s[i]=' '               Then d:=d+1;           Write('trong xau co ', d, ' tu');           Readln       End.       {GM Kiet}

thaophuobg · Answer

var str1: string; st: byte;
begin
write(‘Nhap chuoi can tim: ‘);
readln(str1);

st:=1;
while(pos(‘ ‘,str1)<>0) do
begin
inc(st);
delete(str1,1,pos(‘ ‘,str1));
end;
write(‘So tu la: ‘,st);
readln
end.

nhập vào 1 xâu. đưa ra số từ của xâu (xâu nhập là xâu chuẩn hóa)

Viết một bình luận Hủy