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

Question

danthu · Answer

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.

0 bình luận về “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”