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

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à chữ số ).Đếm số kí tự chữ số có trong xâu .Đưa kết quả ra ngoài màn hình Giúp mk vs :)”

1. program Tin_hoc;

   uses crt;

   var i,k: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