Một số khái niệm về lập trình và ngôn ngữ lập trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trọng Quang.

cho n < 105  và k tìm cách xóa k chữ số sao cho sau khi xía n là lớn nhất

 

nguyễn an phát
11 tháng 5 2021 lúc 16:09

Program soa_so;

Uses crt;

Var i,j,k,l,n:longint;

st2:string;

Begin

     Clrscr;

     write('nhap n,k:');readln(n,k);

     str(n,st2);k:=length(st2)-k;

     For i:=1 to k do

     Begin

           l:=i;

           For j:=i to length(st2)k do

           If st2[l]<st2[j] then l:=j;

           If l>i then delete(st2,i,l-i);

      End;

      Write(copy(st2,1,k));

      Readln;

End.


Các câu hỏi tương tự
Nhật Nguyễn
Xem chi tiết
Long Thiên
Xem chi tiết
Lục Hạ Vy
Xem chi tiết
Nhât Vinh
Xem chi tiết
Nguyen Thi tuong Vi
Xem chi tiết
Nhât Vinh
Xem chi tiết
Hoàng Ngọc Hà
Xem chi tiết
Long Thiên
Xem chi tiết
Long Thiên
Xem chi tiết