viết chương trình nhập vào 1 xâu bất kì , xuất ra màn hình số lượng kí tự số trong xâu đã nhập. các bn giúp mình bài này với:(
2 câu trả lời
program xau;
uses crt;
var s:String;
i, d: Byte;
th: set of char;
begin
clrscr;
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);
writeln('so luong chu so: ', d);
readln;
end.
{GM Kiet}
uses crt;
var s:string;
begin
clrscr;
write('Nhap mot xau: ');readln(s);
writeln('So luong ki tu trong xau da nhap: ',length(s));
readln
end.
