Nhập vào xâu kí tự s hãy cho biết s có bao nhiêu từ
Quảng cáo
2 câu trả lời 277
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau vua nhap la: ',st);
dem:=0;
for i:=1 to d do
if st[i] in ['0'..'9'] then inc(dem);
writeln(dem);
readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
55322 -
Đã trả lời bởi chuyên gia
31198 -
Đã trả lời bởi chuyên gia
29761
Gửi báo cáo thành công!
