Написать программу на языке паскаль,которая считывает с клавиатуры строку S, состоящую из цифр. В заданном строкой S натуральном N-разрядном числе упорядочить цифры так, чтобы получить наибольшее число, записанное теми же цифрами. Строка S не пустая и содержит не более 200 символов. Строка S состоит только из цифр.
Написать программу на языке паскаль,которая считывает с клавиатуры строку S, состоящую из цифр. В заданном строкой S натуральном N-разрядном числе упорядочить цифры так, чтобы получить наибольшее число, записанное теми же цифрами. Строка S не пустая и содержит не более 200 символов. Строка S состоит только из цифр.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program MaxNumber;
var
S: string;
i, j: integer;
begin
write('Enter a number: ');
readln(S);
for i := 1 to length(S) - 1 do
for j := 1 to length(S) - i do
if S[j] < S[j + 1] then
begin
S[j] := char(ord(S[j]) xor ord(S[j + 1]));
S[j + 1] := char(ord(S[j]) xor ord(S[j + 1]));
S[j] := char(ord(S[j]) xor ord(S[j + 1]));
end;
writeln('The largest number is: ', S);
end.