0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
166
86
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
Hãy giúp mọi người biết câu trả lời này thế nào?
2288
1724
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.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin