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

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.