Chương trình đơn giản

H24

Nhập vào 1 đoạn văn. Tính số câu ?

NT
12 tháng 4 2020 lúc 10:00

uses crt;
var st:string;
d,dem,i:integer;
begin
clrscr;
write('nhap doan van:'); readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]='.' then inc(dem);
writeln('so cau trong doan van la: ',dem);
readln;
end.

Bình luận (0)

Các câu hỏi tương tự
HT
Xem chi tiết
LT
Xem chi tiết
AP
Xem chi tiết
VB
Xem chi tiết
NG
Xem chi tiết
TT
Xem chi tiết
TA
Xem chi tiết
NT
Xem chi tiết
NA
Xem chi tiết