Question

42) (А. Куканова) Рассматривается множество целых чисел, принадлежащих числовому отрезку [2495
7083], которые удовлетворяют следующим условиям:
- запись в шестнадцатеричной системе счисления заканчивается на 1А или 1F;
не кратны 5 и 9.
Найдите количество таких чисел и минимальное из них.(pascal)

Answer 1

const

 MIN_VALUE = 2495;

 MAX_VALUE = 7083;

var

 i: Integer;

 count: Integer;

 min: Integer;

begin

 count := 0;

 min := MAX_VALUE;

 for i := MIN_VALUE to MAX_VALUE do

 begin

   if (i mod 5 <> 0) and (i mod 9 <> 0) and ((i and $FF = $1A) or (i and $FF = $1F)) then

   begin

     Inc(count);

     if i < min then

     begin

       min := i;

     end;

   end;

 end;

 WriteLn('Count: ', count);

 WriteLn('Min: ', min);

end.