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.
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.
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.
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.