Cho trẹp vb bt3.txt gồm nhiều dòng, viêdt chương trình đọc dữ liệu từ tệp bt3.txt, đếm số lượng các chữ số trong tệp và in kêdt quả ra ngoài màn hình

0 bình luận về “Cho trẹp vb bt3.txt gồm nhiều dòng, viêdt chương trình đọc dữ liệu từ tệp bt3.txt, đếm số lượng các chữ số trong tệp và in kêdt quả ra ngoài màn hình”

1. program abcd;

   uses crt;

   const fi=’bt3.txt’;

   var i,d:integer;

   begin

   assign(input,fi);rewrite(input);

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

   write(d);

   readln;

   end.

   Bình luận