Question

Cho trước 1 xâu ký tự, trong đó có ít nhất 4 chữ số. Hãy lọai bỏ 1 số ký tựkhỏi xâu sao cho 4 ký tự cuối cùng còn lại theo đúng thứ tự đó tạo nên 1 số lớn nhấtVí dụ nếu cho xâu “24d5n4r05f704n652z393” thì số lớn nhất còn lại la 7693.Hãy lập trình để giải bài tóan trên.

Answer 1

program kitu;

uses crt;

var i,j,k:integer;

s1,s2:string;

begin

  clrscr;

write('nhap xau:')readln(s1);

s2:=''

for i:=1 to length(s1) do

if (s1[i]>='1')and(s1[i]<='9')then s2:=s2+21[i];

   for i = 1 to 4
           k:=i;
           for j:=i to length(s)+i-4 do
               if s2[k]<s2[j] then k:=j;
          if k>i then delete(s,i,k-i);
    end;
    writeln(copy(s,1,4));

readln;

end.

Answer 2