Viết chương trình nhập từ bàn phím xâu a( bao gồm cả chữ cái và chữ số). Đếm số kí tự chữ số có trong xâu. Đưa kết quả ra màn hình.
2 câu trả lời
kt:=0;
for i:=1 to length(s) do
Begin
val(s[i],n,kt);//cấu trúc:chuyển xâu s thành sô nguyên n nếu được thì kt =0
if kt=0 then inc(dem);
end;
Nhập xuất tự làm
var a : string; i, dem : byte;
begin
clrscr;
write('Nhap xau a : '); readln(a);
dem := 0;
for i := length(a) downto 1 do
if a[i] in ['0' .. '9'] then dem := dem + 1;
writeln('Co ', dem ,' ki tu so');
readln
end.
