Алгоритм решения ребуса Опции

[$rvr4vr]

Составить алгоритм решения ребуса РАДАР=(Р+А+Д)^4. Строки использывать нелзя!!

[volvo]

А чего ты цифры-то так ограничил? Не до 3, а до 9 должен проверять... Тогда все получается:

uses crt;

var
  r, a, d: 0 .. 9;

  dig : set of 0..9;
  sum, rad_4: longint;

begin
  clrscr;
  for r:=0 to 9 do begin
    include(dig,r);
    for a:=0 to 9 do if not (a in dig) then begin
      include(dig,a);
      for d:=0 to 9 do if not (d in dig) then begin
        include(dig,d);

          sum := r*10000 + a*1000 +d*100 + a*10 + r;
          rad_4:=sqr(sqr(r+a+d));
          if sum = rad_4 then
            writeln(r,a,d,a,r,'=(',r,'+',a,'+',d,')^4');

        exclude(dig,d);
      end;
      exclude(dig,a);
    end;
    exclude(dig,r);
  end;
end.

14641=(1+4+6)^4