pascal
Объяснение:
var
i, j ,k: integer;
l, lnew: string;
a: array of integer;
begin
Write('Введите число >> ');
ReadLn(l);
SetLength(a ,length(l));
for i := 0 to length(l) - 1 do
a[i] := strtoint(l[i + 1]);
for i := 0 to length(l) - 2 do
for j := i + 1 to length(l) - 1 do
if a[i] > a[j] then
begin
k := a[i];
a[i] := a[j];
a[j] := k;
end;
for i := 0 to length(l) - 1 do
lnew := lnew + inttostr(a[i]);
WriteLn('Новое число равно ', lnew);
end.
Хотя слово «центнер» немецкого происхождения и означает «сто мер», традиционно в Германии в старину за меру веса принимали не килограмм, а фунт, который соответствует приблизительно 500 граммам. То есть 100 фунтов — 50 килограммов. Этой мерой веса в старину пользовались люди, занятые в сельском хозяйстве: например, центнер картофеля — полный мешок, 50 кг. В разных частях Германии центнер был разный: в Баварии, например, — 56 кг; в Брауншвейге — 46,77 кг; в Саксонии — 51,4 кг. Сейчас в Германии берётся усреднённая величина 50 кг[1].
:)
всего доброго