Nhập xâu S không quá 150 kí tự. Hãy cho biết bao nhiêu kí tự ‘1’ trong xâu S làm cho mk vs ạ mk cần gấp ạ passcal ạ

0 bình luận về “Nhập xâu S không quá 150 kí tự. Hãy cho biết bao nhiêu kí tự ‘1’ trong xâu S làm cho mk vs ạ mk cần gấp ạ passcal ạ”

1. program bai_giai;

   uses crt;

   var s:string[150];

        i,d:byte;

   begin

        clrscr;

        write(‘Nhap xau S: ‘);  readln(S);

        d:=0;

        for i:=1 to length(s) do

             if s[i]=’1′ then d:=d+1;

        write(‘Co ‘,d,’ ki tu 1 trong xau ‘,s);

        readln;

   end.

   Bình luận

2. program phuongt;
   uses crt;
     var s: string[150];
           i, d: integer;
   begin
           clrscr;
           write(‘Nhap xau s = ‘); readln(s);
           for i:=1 to length(s) do if s[i]=’1′ then d:=d+1;
           write(‘Co ‘, d, ‘ ki tu “1” trong xau S’);
           readln
   end.

   Bình luận