Bài 4. Sử dụng biến trong chương trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
le thi minh phuong

Viết chương trình nhập vào số nguyên dương N (1<N<10^10) từ bàn phím, Hãy sắp xếp lại các chữ số của N sao cho ta được số lớn nhất, in kết quả ra màn hình 

Nguyễn Lê Phước Thịnh
21 tháng 1 2021 lúc 20:57

uses crt;

var n,i,d,x,j,tam:longint;

a:array[1..11]of integer;

st:string;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n>0;

str(n,st);

d:=length(st);

for i:=1 to d do 

  begin

val(st[i],a[i],x);

end;

for i:=1 to d-1 do 

  for j:=i+1 to d do 

if a[i]<a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to d do 

  write(a[i]);

readln;

end.


Các câu hỏi tương tự
Nguyễn minh quân
Xem chi tiết
Phan Thị Chuyên
Xem chi tiết
Vanh Nguyễn
Xem chi tiết
Nguyễn Mỹ Uyên
Xem chi tiết
La Thị Thu Phượng
Xem chi tiết
Huỳnh Thanh Trúc
Xem chi tiết
Dang Hien
Xem chi tiết
Dang Hien
Xem chi tiết
01 Nhung Anh 8/19
Xem chi tiết