Một đoạn tin nhắn của bộ y tế gửi cho người dân cập nhật thông tin covid-19. Triệu rất tò mò trong đoạn tin nhắn đó có bao nhiêu số 0. Em hãy VCT nhập xâu chứa tin nhắn và đếm có bao nhiêu số 0
2 câu trả lời
program dem_0;
uses crt;
var s:string;
i,d:byte;
begin
clrscr;
write('Nhap tin nhan: '); readln(s);
d:=0;
for i:=1 to length(s)d o
if s[i]='0' then d:=d+1;
write('Co ',d,' so 0 trong tin nhan');
readln;
end.
uses crt;
var s: string;
i,d: byte;
begin
clrscr;
write ('nhap xau s: '); readln (s);
for i:=1 to length(s) do if s[i]='0' then d:=d+1;
write ('trong xau s co ',d,' so 0');
readln;
end.
