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. giúp mình với, mình cảm ơn.
2 câu trả lời
var a: string;
i, dem: longint;
BEGIN
readln(a);
dem:=0;
for i:=1 to length(a) do
if ('0'<=a[i]) and (a[i]<='9') then inc(dem);
writeln('So ki tu chu so co trong xau la: ', dem);
readln;
END.
var s:string;
i,t:integer;
begin
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then inc(t);
write('t =',t);
readln
end.
