đọ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
2 câu trả lời
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.
program bai_giai;
uses crt;
var f:text;
s:string;
i,d:integer;
begin
clrscr;
Assign(f,'XAU.DAT'); reset(f);
readln(f,s);
d:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then d:=d+1;
write(d);
close(f); readln;
end.
