Nhập xâu và in ra các số nguyên có trong xâu.(pascal)
2 câu trả lời
uses crt;
var s,tam:string;
i:byte;
BEGIN
clrscr;
write('Nhap xau:'); readln(s);
tam:='';
for i:=1 to length(s) do
begin
if s[i] in ['0'..'9'] then tam:=tam+s[i]
else
begin
if tam<>'' then writeln(tam);
tam:='';
end;
end;
readln
END.
Cho mình ctlhn nha.
program sotrongxau;
uses crt;
var st,st2:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(st);
st2:='';
write('Cac so co trong xau la: ');
for i:=1 to length(st) do
if st[i] in ['0'..'9'] then st2:=st2+st[i]
else
begin
write(st2,' ');
st2:='';
end;
readln
end.
