1 câu trả lời
uses crt;
var s : string; i : byte;
begin
clrscr;
write('Nhap xau s = '); readln(s);
write('Cac ki tu chu so : ');
for i := 1 to length(s) do
if s[i] in ['0' .. '9'] then write(s[i],' ');
readln
end.
Câu hỏi trong lớp
Xem thêm
