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

0 bình luận về “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”

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

   Bình luận

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

   Bình luận