Question

Bài 1: Tìm min

Tên chương trình SMIN.PAS

Cho trước số nguyên dương N không có quá 10 chữ số, tìm số nguyên dương nhỏ nhất bằng cách đổi vị trí của không quá hai chữ số của Na.

Dữ liệu vào:

Vào từ file văn bản SMIN.INP, gồm một dòng duy nhất chứa duy nhất số nguyên dương N

Kết quả:

Ghi ra file văn bản SMIN.OUT gồm một dòng duy nhất chứa số nguyên nhỏ nhất tương ứng tìm được.

Ví dụ

SMIN.INP: 21435

SMIN.OUT:12435.

Answer 1

const
fi='SMIN.INP';
fo='SMIN.OUT';
var
tam:char;
f:text;
n:string;
i:longword;
begin
assign(F,fi);
reset(F);
read(f,n);
close(F);
if (length(n)-1)<>0 then
for i:=1 to length(n)-1 do
if ord(n[i])>ord(n[i+1]) then
begin
tam:=n[i];
n[i]:=n[i+1];
n[i+1]:=tam;
break;
end;
assign(F,fo);
rewrite(F);
writeln(f,n);
close(F);
end.