Viết chương trình nhập vào 1 xâu,đưa ra màn hình xâu chứa các chữ số trong xâu nhập vào
2 câu trả lời
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
write('nhap xau:'); readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]='a' then inc(dem);
writeln('khong có so: ',dem);
readln;
end.
program chuso;
uses crt;
var s,st:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
st:='';
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then st:=st+s[i];
if length(st)=0 then write('Khong co so')
else write(st);
readln;
end.
