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

quangduy

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

Nguyễn Lê Phước Thịnh
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ự
Hoàng Trang
Xem chi tiết
Lê Thị Bảo Trâm
Xem chi tiết
Anh Phạm
Xem chi tiết
Võ Bảo Bảo
Xem chi tiết
Ngô Thị Hồng Gấm
Xem chi tiết
Trần văn tuấn
Xem chi tiết
Tran Anh
Xem chi tiết
Nguyễn Thị Tươi
Xem chi tiết
Nam Phạm An
Xem chi tiết