Преобразовать строку так,чтобы все цифры были отсортированы по убыванию Delphi и...

July 2022 1 13 Report

Преобразовать строку так,чтобы все цифры были отсортированы по убыванию
Delphi или Паскаль (Лучше Delphi)
Помогите пожалуйста

Answers & Comments

nubpolymaster Var s: string;
a: array [0..9] of integer;
i, j: integer;

begin
s = readln();
for i := 1 to length(s) do
    a[Convert.ToInt32(s[i])]++;
for i := 9 downto 0 do
    for j := 1 to a[i] do
        write(i);
end.

Это на pascalABC.net. Все должно работать, только Convert можешь сам исправить, если не работаешь в .net

0 votes Thanks 0

Answers & Comments

100 ballovnuzhno otvetit na voprosy 1v razvityh stranah nagruzka na 1m2 obra

8 variant 100 ballov

reshit sistemux yxyhy3x y

pomogite sostavit sochinenie so slovamipush throughearnpublishprivatege

na storonah abcd s osnovaniyami ad i bc diagonali peresekayutsya v tochke odokazhite

ask questions sostavit po 5 tipov voprosov k kazhdomu iz 3 predlozhenij 80 ballo

raskryt skobkiukazat nuzhnoe vremya i passivnyj zalog 110 ballovprostite za ka

reshit 8 2 punkt na yazyke paskaldelfi za 50 ballov

pomogite reshit srochno1 hclzn 2 h2so4na2o 3 h3po4caoh2 4 hclagno3 1 naohs

pomogite srochnoelement cinkzn

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

Helpful Links

Helpful Social