Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ решение ребусов

Автор: MiH@N 21.11.2007 1:57

кто нибуть помогите решить ребус : Составить алгоритм решения ребуса ДРУГ — ГУРД = 2727 (различные буквы обозначают различные цифры, старшая — не 0). ну очень надо.и если можно то хоть с небольшими объяснениями.

Добавлено через 1 мин.
можно ли подогнать под эту задачу решение ребуса VOLVO+FIAT=MOTOR?

Автор: volvo 21.11.2007 2:37

Можно и подогнать, но не стоит... Легче сделать:

var
  d, r, u, g: integer;
  s, s_rev: integer;

begin
  for d := 1 to 9 do
    for r := 0 to 9 do
      if r <> d then
      for u := 0 to 9 do
        if (u <> r) and (u > d) then
        for g := 0 to 9 do
          if (g <> u) and (g <> r) and (g <> d) and (g > 0) then begin
            s := d * 1000 + r * 100 + u * 10 + g;
            s_rev := g * 1000 + u * 100 + r * 10 + d;
            if s - s_rev = 2727 then writeln(s, '-', s_rev, '= 2727');
          end;
end.


Автор: MiH@N 23.11.2007 23:55

спасибо volvo.Спас от неминуемой расправы препода!!! good.gif