Натуральные числа, найти число Опции

[Айра]

Для любого натурального n найти число, составленное из 1-ц и 2-ек, делящееся на 2n

Вот что у меня получилось:

var n,n2,a,d,x,ch: longint;
    f: boolean;
const max=2147483647;
begin
  write('введите значение n: ');
  readln(n);
  if (n mod 5=0) then  writeln('для n=',n,' искомого числа не существует')
  else
    begin
      a:=0;
      n2:=2*n;
      x:=0;
        repeat
          begin
            f:=true;
            x:=0;
            a:=a+n2;
            d:=a;
            while (d<>0) and f do
              begin
                ch:=d mod 10;
                if (ch<>1) and (ch<>2) then f:=false;
                d:=d div 10;
              end;
            if f then x:=a;
          end;
        until (a>=max) or f;
        writeln('для n=',n,' x=',x,'')
    end;
end.

Вроде работает нормально.. но может можно что-то упростить или сделать лучше?

[Malice]

Учитывая, что max= MaxLongInt условие a>max сработать не сможет и вероятна ситуация при которой а вылетит с переполнением и станет меньше max. Поэтому можно на всякий случай добавить еще одно условие:

     until (a>=max) or f or (a<0);

Ну и после на это тоже проверить, т.к. результат не получен, вывести соответствующее сообщение.
;)

Сообщение отредактировано: Malice - 1.11.2007 0:27