Question

Уникальным назовём число, если у него первые две цифры нечётные. Для интервала [57888;74555]. Найдите количество таких чисел, которые не делятся на 7, 9, 13, на разность максимального и минимального. В ответе укажите числа: сначала количество чисел, потом разность.

Answer 1

program uniq;

var

i, min_value, max_value, counter: Integer;

begin

counter := 0;

min_value := 0;

max_value := 0;

for i := 57888 to 74555 do begin

if (((i div 10000) mod 2 <> 0) and (((i div 1000) mod 10) mod 2 <> 0)) then begin

if ((i mod 7 <> 0) and (i mod 9 <> 0) and (i mod 13 <> 0) and (i mod 16667 <> 0)) then begin

counter += 1;

max_value := i;

if min_value = 0 then

min_value := i

end;

end;

end;

Writeln(counter);

WriteLn(min_value, ' ', max_value);

end.