K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

16 tháng 6 2020

Program HOC24;

var s: string;

begin

write('Nhap xau : '); readln(s);

for i:=1 to length(s) do

if s[i] in ['0'..'9'] then write(s[i]);

readln

end.