Bài 12: Kiểu xâu

HN

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

NT
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.

Bình luận (1)

Các câu hỏi tương tự
HN
Xem chi tiết
TP
Xem chi tiết
NN
Xem chi tiết
HT
Xem chi tiết
NH
Xem chi tiết
AV
Xem chi tiết
TP
Xem chi tiết
KM
Xem chi tiết
LN
Xem chi tiết