Viết chương trình nhập vào 1 xâu có chữ và số, xuất ra màn hình xâu chỉ mang số.
2 câu trả lời
uses crt;
var s,str:string;
i:byte;
begin
clrscr;
read(s); readln;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then str:=str+s[i];
write(str);
readln;
end.
program Tin_hoc;
uses crt;
var i:integer;
s1,s2:string;
begin
clrscr;
writeln('Nhap xau:');readln(s1);
s2:='';
for i:= 1 to length(s1) do if s1[i] in ['0'..'9'] then s2:= s2 + s1[i];
writeln('Xau chi gom so :',s2);
readln;
end.
Nhớ cho mik câu tlhn nha
