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 ngoài màn hình Giúp mk vs :))Thanks
2 câu trả lời
program Tin_hoc;
uses crt;
var i,k:integer;
a:string;
begin
write('Nhap xau a:')readln(a);
k:=0;
for i:= 1 to length(a) do if a[i] in ['0'..'9'] then inc(k);
writeln('Xau a co ',k,' ki tu chu so');
readln;
end.
uses crt;
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.
