Bài 12: Kiểu xâu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Bui Trong Diep

Viết chương trình nhập vào 1 sâu bất kỳ và cho biết sâu có bao nhiêu từ ( mỗi từ là 1 dãy các ký tự khác ký tự trắng) Mong mọi người giúp mai em thi học kỳ rồi ạ

Nguyễn Lê Phước Thịnh
11 tháng 5 2022 lúc 18:48

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

readln(st);

d:=length(st);

dem:=0;

for i:=1 to d do 

  if st[i]=' ' then dem:=dem+1;

writeln(dem+1);

readln;

end.


Các câu hỏi tương tự
Coming Home
Xem chi tiết
Coming Home
Xem chi tiết
Lê Hoa
Xem chi tiết
Nguyễn Thị Yến Nhi
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Harunastu
Xem chi tiết
huu nghi truong
Xem chi tiết
NTKL
Xem chi tiết
NGUYỄN VIẾT LUẬN
Xem chi tiết