Задача на целое число

[DesignFootball.Ru]

Два сомножителя составлены из цифр от 1 до 9 (причём каждая встречается ровно один раз) так, что их произведение - целое число.


Сам пока только вникнул в суть. Но может смогу помочь:
Двухзначное число обязательно будет равно 32, 64 и 96. ( потому что после запятой во втором множителе 5 знаков, значит домножать нужно на 5-ую степень двойки)
А второе число обязательно должно оканчиваться на 5 и более того, если второй множитель представить в виде правильной дроби, то в знаменателе этой дроби будет число 5^5

как перебрать все числа, подходящие под это условие? Благодарю заранее за помощь!

[firephenix]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a : array[1..3] of longint;
  i,j,s1,s2,max : longint;

function proverka(j : longint) : boolean;
var
  s : string;
begin
  proverka:=true;
  if j mod 25 <>0 then proverka:=false;
  str(j,s);
  if pos('0',s)>0
    then proverka:=false;
end;

begin
  Assign(output,'output.txt'); ReWrite(output);
  a[1]:=32;
  a[2]:=64;
  a[3]:=96;
  for i:=1 to 3 do
    for j:=1000000 to 9999999 do
      if (proverka(j)) and (a[i]*j mod 1000000=0)
        then writeln(a[i],' ',j div 1000000,',',j mod 1000000);
  Close(output);
end.

[DesignFootball.Ru]

firephenix, большое спасибо! Даже не рассчитывал на готовый код. С меня + в репутацию!

[Serge_Bliznykov]

только не проверяется условие:

из цифр от 1 до 9 (причём каждая встречается ровно один раз)

DesignFootball.Ru
кстати, ваше предположение о том, что первое число может быть одним из трёх - НЕВЕРНО.
первое двухзначеное число может быть ТОЛЬКО 64 и никак иначе!


Добавлено
а вот и мой вариант для решения этой "сверхсложной" задачи:

uses
  SysUtils;

var
  i,j : longint;

function Proverka(jj : longint) : boolean;
var s : string;
    i : integer;
begin
  Proverka := false;
  str(jj,s);
  if Pos('0',s)>0 then Exit;
  {цифры 6 и 4 мы уже использовали в первом множителе,
      поэтому отбрасываем числа, где есть эти цифры}
  if Pos('6',s)>0 then Exit;
  if Pos('4',s)>0 then Exit;
  for i:=1 to Length(s)-1 do
    if Pos(s[i], Copy(s,i+1, Length(s)-i))>0 then Exit;
  Proverka := true;
end;

begin
  Assign(output,'output.txt'); ReWrite(output);
  i:=64;
  for j:=1000000 to 9999999 do
      if (i*j mod 1000000=0) then
        if Proverka(j) then
            writeln(i,' ',j div 1000000,',',j mod 1000000);
  Close(output);
end.

p.s. кстати, ответ в задаче только один!

[DesignFootball.Ru]

а как это исправить?

[Serge_Bliznykov]

я опубликовал код..

[DesignFootball.Ru]

Спасибо!
__
поставил плюсик в репу


Но всё таки интересно: почему только 64?

[DesignFootball.Ru]

И в каком интерпретаторе писали? FPC ?

[Serge_Bliznykov]

И в каком интерпретаторе писали? FPC ?

нет, консольное приложение Delphi

А какая, собственно, разница?

[DesignFootball.Ru]

разницы никакой. просто интересно. пожалуйста, ответьте на мой вопрос:
почему только 64?