Вот млин атвет: 197485+526485=723970
Вот правильная прога коротая считает правильно... в первой не все условия были соблюдены мне лень было быстро писать, вроде ответ подошел я его и написал, а сам с пианых глаз упустил неточности...
Вот правильная прога (написанная кстате минут за пять после многа литров пива) здесь уже учтено все:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
label 1;
var g,e,r,a,l,o,n,b:integer;
begin
for g := 1 to 9 do
begin
for e := 1 to 9 do
begin
for r := 1 to 9 do
begin
for a := 1 to 9 do
begin
for l := 1 to 9 do
begin
for o := 1 to 9 do
begin
for n := 1 to 9 do
begin
for b := 1 to 9 do
begin
if ((g*100000+e*10000+r*1000+a*100+l*10+5)+500000+o*10000+n*1000+a*100+l*10+5)=r*100000+o*10000+b*1000+e*100+r*10 then
begin
if (g<>e) and (g<>r) and (g<>a) and (g<>l) and (g<>o) and (g<>n) and (g<>b) then
begin
if (e<>r) and (e<>a) and (e<>l) and (e<>o) and (e<>n) and (e<>b) then
begin
if (r<>a) and (r<>l) and (r<>o) and (r<>n) and (r<>b) then
begin
if (a<>l) and (a<>o) and (a<>n) and (a<>b) then
begin
if (l<>o) and (l<>n) and (l<>b) then
begin
if (o<>n) and (o<>b) then
begin
if (n<>b) then
goto 1
else writeln('ибаная задача не решаецо ни буя...');
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
1:
writeln('g=',g);
writeln('e=',e);
writeln('r=',r);
writeln('a=',a);
writeln('l=',l);
writeln('o=',o);
writeln('n=',n);
writeln('b=',b);
readln;
end.