đọc 1 xâu kí tự từ tệp có tên XAU.DAT . Đếm các chữ số có trong xâu và in kết quả ra màn hình

0 bình luận về “đọc 1 xâu kí tự từ tệp có tên XAU.DAT . Đếm các chữ số có trong xâu và in kết quả ra màn hình”

1. var f:text;

   s:ansistring;

   i,kq:longint;

   begin

   assign(f,’XAU.inp’);reset(f);

   readln(f,s);close(f);

   for i:=1 to length(s) do

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

   write(kq);

   end.

   Bình luận