Viết chương trình nhập từ bàn phím xâu a ( bao gồm cả chữ cái và số) Đếm số ký tự chữ số có trong xâu. Đưa kết quả ra màn hình

0 bình luận về “Viết chương trình nhập từ bàn phím xâu a ( bao gồm cả chữ cái và số) Đếm số ký tự chữ số có trong xâu. Đưa kết quả ra màn hình”

1. *Giải thích các bước giải:

   program khanhvan;

   uses crt;

   var i,sk:integer;

         a:string;

   Begin

   write(‘Nhap xau a:’)

   readln(a);

   k:=0;

   for i:= 1 to length(a) do if a[i] in [‘0’..’9′] then inc(k);

   writeln(‘Xau a co ‘,k,’ ki tu chu so’);

   readln;

   End.

   Bình luận

2. program Tin_hoc;

   uses crt;

   var i,n:integer;

         a:string;

   begin

   clrscr;

   writeln(‘Nhap xau’);

   readln(a);

   n:=0;

   for i:=1 to length(a) do if a[i] in [‘0’..’9′] then inc(n);

   writeln(‘Xau a co ‘,n,’ ki tu la chu so’);

   readln;

   end.

   Bình luận