Hilfe beim Programmieren von einer Gleichung

[Kroko1999]

etwa so

Delphi-Quellcode:

var
  A,B,C,D,N: Integer;
  A1,B1,C1,D1: Extended;

begin
  for N := 2 to 9 do
    for A := 1 to 100 do
    begin
      A1 := Power (A,N);
      for B := 1 to 100 do
      begin
        B1 := Power (B,N);
        for C := 1 to 100 do
        begin
          C1 := Power (C,N);
          for D := 1 to 100 do
          begin
            D1 := Power (D,N);
            if A1+B1+C1=D1 then
              begin
                Memo1.Lines.Add ('A='+IntToStr (A)+' , B='+IntToStr(B)+' , C='+IntToStr(C)+' , D='+IntToStr(D)+' N='+IntTostr(N));
              end;
          end;

        end;
      end;
    end;
end;