viết chương trình nhập vào xâu s và đưa ra màn hình xâu trên có bn số

0 bình luận về “viết chương trình nhập vào xâu s và đưa ra màn hình xâu trên có bn số”

1. program dem_so;

   uses crt;

   var s:string;

         i,d:byte;

   begin

        clrscr;

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

        d:=0;

        for i:=1 to length(s) do

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

        write(‘Xau tren co ‘,d,’ chu so’);

        readln;

   end.

   Bình luận

2. Program sss;

   uses crt;

   begin

   clrscr;

   Var s:string;

   d,i:integer;

   Begin

   Writeln(‘Nhap xau S’); readln(s);

   For i:=1 to length(S) do if S[i] in [‘0’..’9′] then inc(d);

   Writeln(‘xau s có: ‘,d,’ so’);

   readln;

   end.

   Bình luận