Составить программу, которая по заданным трём цифрам a, b, c выведет на экран максимальное двухзначное число

Составить программу, которая по заданным трём цифрам a, b, c выведет на экран максимальное двухзначное число
можно получить из этих цифр
Пример Ввод: 3 5 4
Вывод: 54
Это паскаль!

  • Нужно упорядочить цифры в порядке убывания и взять первые две.
  • int a = 3, b = 5, c = 4, result;
    if(ac) result = a + b;
    else result = a + c;

    более просто вариант:
    int a = 3, b = 5, c = 4, result;
    result = b + c;
    :D

    Источник: сам придумал
  • Писал на Дельфе, под Паскаль сам подгоняй:

    procedure TForm1.Button1Click(Sender: TObject);
    var i,max : integer;
    a, b, c : string;
    m : array [1..6] of integer;
    begin
    a:=copy(Edit1.Text,1,1);
    b:=copy(Edit2.Text,1,1);
    c:=copy(Edit3.Text,1,1);
    m[1]:=StrToIntDef(a+b,0);
    m[2]:=StrToIntDef(a+c,0);
    m[3]:=StrToIntDef(b+a,0);
    m[4]:=StrToIntDef(b+c,0);
    m[5]:=StrToIntDef(c+a,0);
    m[6]:=StrToIntDef(c+b,0);
    max:=m[1];
    for i:= 2 to 6 do
    if m [ i ] > max then max:=m [ i ];
    Label1.Caption:=IntToStr(max);
    end;