– Nhập một xâu A không quá 150 kí tự
– Tạo xâu B gồm các kí tự là số trong xâu A
– In các xâu ra màn hình
– Nhập một xâu A không quá 150 kí tự – Tạo xâu B gồm các kí tự là số trong xâu A – In các xâu ra màn hình
By Ruby
By Ruby
– Nhập một xâu A không quá 150 kí tự
– Tạo xâu B gồm các kí tự là số trong xâu A
– In các xâu ra màn hình
program oken;
uses crt;
var a,b: string[150];
i: byte;
begin
clrscr;
write(‘nhap xau a: ‘); readln(a);
for i:=1 to length(a) do
if (a[i] in [‘0’..’9′]) then
b:=b+a[i];
writeln(‘xau b: ‘,b);
readln;
end.
uses crt;
var A,B:string[150];
i: byte;
begin
clrscr;
write(‘Nhap xau A: ‘); readln(A);
for i:=1 to length(A) do
if (A[i] in [‘0’..’9′]) then B:=B+A[i];
writeln(‘Xau B la: ‘,B);
readln
end.