Bài 12: Kiểu xâu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hân Lê ngọc

viết chương trình nhập xâu S không quá 150 Kí tự.hãy cho biết có bao nhiêu kí tự '1' trong xâu S

Nguyễn Lê Phước Thịnh
17 tháng 5 2021 lúc 17:17

uses crt;

var s:string;

i,d,dem:integer;

begin

clrscr;

write('nhap xau S:'); readln(s);

d:=length(s);

dem:=0;

for i:=1 to d do

if st[i]='1' then inc(dem);

writeln(dem);

readln;

end.


Các câu hỏi tương tự
Hân Ngọc
Xem chi tiết
Thangg PH
Xem chi tiết
Nguyễn thị tuyết nhung
Xem chi tiết
Hong Trần
Xem chi tiết
Nguyễn Thị Thanh Hằng
Xem chi tiết
Ánh Nguyệt Thiên Vĩ
Xem chi tiết
Thanh Nhi Phạm
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Long Nhi
Xem chi tiết