Ребус, :) Опции

[sheka]

Вот есть ребус. Кому интересно - решите и ответьте, пожалуйста на 2 вопроса: первый в опросе, а второй: Ваш ответ .

И не забудьте поделиться идеей решения таких штучек)

Ответ и откуда взят ребус (Показать/Скрыть)

Ответ, если не ошибаюсь=2.
Ребус - один из вопросов в тесте IQ, который расчитан на 30 минут

Сообщение отредактировано: sheka - 5.12.2009 4:36

[Вячеслав Л.]

Я решить не смог : посмотрел программу под заголовкам "тут сама прога". Попытался ее переделать, чтобы мне понятнее было. Переделал, прога работает, но выдает "ответ 1". Посмотрите, пожалуста, что я переделал не так (на будущее)...

Спойлер (Показать/Скрыть)

var
  a,b,c,d,e,f,g,h,j: integer;

begin
  for a:=0 to 9 do
    for b:=0 to 9 do if a<>b then
      for c:=0 to 9 do if (a<>c)and(b<>c) then
        for d:=0 to 9 do if (a<>d)and(b<>d)and(c<>d) then
          for e:=0 to 9 do if (a<>e)and(b<>e)and(c<>e)and(d<>e) then
            for f:=0 to 9 do if (a<>f)and(b<>f)and(c<>f)and(d<>f)and(e<>f) then
              for g:=1 to 9 do if (a<>g)and(b<>g)and(c<>g)and(d<>g)and(e<>g)and(f<>g) then
                for h:=0 to 9 do if (a<>h)and(b<>h)and(c<>h)and(d<>h)and(e<>h)and(f<>h)and(g<>h) then
                  for j:=1 to 9 do if (a<>j)and(b<>j)and(c<>j)and(d<>j)and(e<>j)and(f<>j)and(g<>j)and(h<>j) then
                    if (100*d+10*g+j + 100*j+10*a+e + 100*b+10*h+f = 1100*d+10*a+b)
                     and (f*c div j = g*10+a)
                     and (f*c mod j = 0)
                     and (a mod g = 0)
                    then WriteLn(d,g,j,'+',j,a,e,'+',b,h,f,'=',d,d,a,b);
WriteLn('otvet: ',a/g);
end.