Nhập từ bàn phím từ xâu có độ dài không quá 100 kí tự đếm Xem xâu vừa nhập có bao nhiêu ký tự chữ số

0 bình luận về “Nhập từ bàn phím từ xâu có độ dài không quá 100 kí tự đếm Xem xâu vừa nhập có bao nhiêu ký tự chữ số”

1. var s: string[100];

          i, d: byte;

   Begin

        Write(‘nhap xau: ‘); readln(s);

        d:=0;

        For i:=1 to length(s) do

           If s[i] in [‘0’..’9′] then inc(d);

       Write(‘co ‘, d, ‘ ki tu so’);

       Readln

   End.

   Bình luận

2. program vd1;

   uses   crt;

   var s: string[100];

          I, D: byte;

   Begin

        Write(‘nhap xau: ‘); readln(s);

        D:=0;

        For I:=1 to length(s) do

           If s[I] in [‘0’..’9′] then inc(D);

       Write(‘co ‘, D, ‘ ki tu so’);

       Readln

   End.

   XIN HAY NHẤT

   Bình luận