viết chương trình đếm số ký tự chữ số trong một xâu ký tự được nhập vào từ bàn phím vd: s:=’ab1d23f’ Giúp mình với ạk

0 bình luận về “viết chương trình đếm số ký tự chữ số trong một xâu ký tự được nhập vào từ bàn phím vd: s:=’ab1d23f’ Giúp mình với ạk”

1. Program NN;
   Uses crt;
   Var St: String;
       i,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap St: ‘); Readln(St);
           d:=0;
           For i:=1 to length(St) do
                   If St[i] in [‘0’..’9′] then inc(d);
           Write(‘D = ‘,d);
           Readln
   End.

   Bình luận

2. Uses crt;

   var s:string;i,j:byte;

   BEGIN

   clrscr;

   Write(‘Nhap s: ‘);readln(s);

   for i:=1 to length(s) do

    if s[i] in [‘0’..’9′] then j:=j+1;

   writeln(‘So ky tu chu so la: ‘,j);

   readln

   END.

   Bình luận