Паскаль

Дано четырёхзначное число. Напишите программу которая выводит на экран самое большое число, которое можно составить из цифр заданного четырёхзначного числа

Question

Информатика

Ульяха

19 января, 17:30

Паскаль

Дано четырёхзначное число. Напишите программу которая выводит на экран самое большое число, которое можно составить из цифр заданного четырёхзначного числа

+4

Ответы (1)

Знаете ответ?

Александрушка · Answer 1

Var

a:array[1 ... 4] of integer;

b, i, i2, max:integer;

Begin

Readln (b) ;

a[1]: = b div 1000;

a[2]: = b div 100 mod 10;

a[3]: = b div 10 mod 10;

a[4]: = b mod 10;

max:=1;

for i2:=1 to 4 do begin

for i:=1 to 4 do if a[max]
a[max]:=0;

End;

End.