Уникальным назовём число, если у него первые две цифры нечётные. Для интервала [57888;74555]. Найдите количество таких чисел, которые не делятся на 7, 9, 13, на разность максимального и минимального. В ответе укажите числа: сначала количество чисел, потом разность.
More Questions From This User See All
Answers & Comments
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.