Задача

[warca]

надо эту задачу написать в программе.помогите пожалуйста написать ее.

Заданы три числа:a,b,c.Необходимо выяснить,можно ли так переставить цифры в числах a и b,что бы в сумме получилось c.
Входной файл содержит три целых числа a,b,c(0<a,b,c<10^9)Числа разделены пробелом.

В выходной файл следует вывести YES если искомая перестановка чисел возможна,в противном случае NO.при положительно ответе во второй строке вывести число x,получаемая перестановкой цифр числа a, и число y,получаемое перестановкой цифр числа b,сумма которых равна c.Числа в строке разделить пробелом.Если решений несколько,то следует вывести ту пару,в которой число x минимально.


Например:
вводимые числа:
12 31 25
выводимые числа:
YES
12 13.



Например:
вводимые числа:
12 13 26
выводимые числа:
NO.

[TinMan]

warca, пара вопросов к тебе:
1. какой диапазон чисел?
2. есть свои наработки?

По идее, задача несложная - вводим цифры в два массива и переставляем (например, с помощью рекурсии). Неэффективно, но работать будет.

[warca]

диапозон чисел от 0 до 10^9.своих набросков нету.не понимаю немного ее.думаю с помощью масивов,но не знаю как поменять цифры местами.

[TinMan]

Плохо, что нет набросков..
Короче, вот примерно так можно сделать. Писал в спешке и не тестировал особо, так что если заметишь что-то не то - пиши.

type
  tDigits= array[1..10] of byte;

var
  la,lb,ld: integer;
  da,db,dd: tDigits;
  a,b,c,r: longint;

procedure Swap(var a,b: byte);
var
  x: byte;
begin
  x:= b;
  b:= a;
  a:= x
end;

procedure Digits(x: longint; var dx: tDigits; var lx: integer);
var
  i,j: integer;
begin
  lx:= 0;
  while x>0 do begin
    inc(lx);
    dx[lx]:= x mod 10;
    x:= x div 10
  end;
  for i:=2 to lx do for j:=lx downto i do if dx[j]>dx[j-1] then Swap(dx[j],dx[j-1])
end;

procedure Permutations(x: tDigits; l: integer);
var
  i: integer;
begin
  if l=0 then begin
    Digits(c-r,dd,ld);
    if ld=lb then begin
      i:=1;
      while (i<=lb) and (dd[i]=db[i]) do inc(i);
      if i>lb then begin
        writeln('YES');
        writeln(r,' ',c-r);
        readln;
        halt
      end
    end
  end
  else for i:=l downto 1 do begin
    Swap(x[i],x[l]);
    r:= r*10+x[l];
    Permutations(x,l-1);
    r:= r div 10;
    Swap(x[i],x[l])
  end
end;

begin
  readln(a,b,c);
  Digits(a,da,la);
  Digits(b,db,lb);
  Permutations(da,la);
  writeln('NO');
  readln
end.

Задавай конкретные вопросы, если нужны пояснения.

[warca]

спасибо за решение.программа рабочая,все правильно выдает.большое спасибо