Nhập vào 1 xâu bất kì từ bàn phím . đếm số lượng các kí tự là chữ số trong xâu và ghi vào tệp " BT1.TXT"
2 câu trả lời
program chuso;
uses crt;
var f:text;
s:string;
i,d:byte;
begin
clrscr;
Assign(f,'BT1.TXT'); rewrite(f);
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then d:=d+1;
write(f,d);
close(g);
end.
program xau;
uses crt;
var s:String;
i, d: Byte;
th: set of char;
f: text;
begin
clrscr;
assign(f, 'BT1.TXT'); rewrite(f);
th:=['1','2','3','4','5','6','7','8','9','0'];
write('nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do if s[i] in th then
inc(d);
write(f, d);
close(f);
end.
{GM Kiet}
