Дано натуральное число N. Переставить местами его цифры так, чтобы получилось ма...

November 2021 1 13 Report

Дано натуральное число N. Переставить местами его цифры так, чтобы получилось максимальное число, записанное теми же цифрами. (Программирование в Pascal ABC)

Answers & Comments

140201 Var s: string; a: char; n,l: integer; i,j: byte;
begin
write ('Введите число: ');
readln (n);
Str(n,s);
l:=length(s);

for i:=1 to l-1 do begin
for j:=i+1 to l do begin
    if s[i]<s[j]
then begin a:=s[i]; s[i]:=s[j]; s[j]:=a end
end
end;

writeln;
writeln (S)
end.

---------------------

Введите число: 273707

777320

3 votes Thanks 2

Answers & Comments

sravnite stroenie tonkogo i tolstogo kishechnika i processy proishodyashie v nih k

s ps mne ne nuzhny kakie nibud vzroslye formuly mne nuzhno obyasnenie resheniya

podskazhite pozhalujsta razryad soyuza itak po znacheniyu i roli v predlozhenii sochi

2cos7cos37 eto odno chislo

broste v vodu kusochek plastilina plastilin utonet dobejtes togo chtoby etot

koch morehodnoe parusnoe sudno xi xix vekovkak pravilno nado proiznosit eto

tablica po kollektivizacii v sssr celi rezultaty posledstviya t e cel ee

tex imenno x delit na k a ne naoborot i kakoj u nee grafik

pomogite pozhalujsta opredelit v kakom stile vypolneny predmety sm foto zara

obyasnite pochemu v 1920 e gg usilivalsya raskol v social demokraticheskom i soo

рекомендуемые вопросы

Helpful Links

Helpful Social