Рассматривается множество целых чисел, принадлежащих числовому отрезку [16 015; 48 989], которые делятся на 7 или 11 и не делятся на 9, 12, 13. Найдите количество таких чисел и минимальное из них. В ответе запишите два целых числа: сначала количество, затем минимальное число.
Для выполнения этого задания можно написать программу или воспользоваться редактором электронных таблиц.
Решим задачу перебором. Приведём решение данной задачи на языке PascalABC:
var count, min, i: longint;
begin
min := 48990;
count := 0;
for i := 16015 to 48989 do begin
if (i mod 7 = 0) or (i mod 11 = 0) then
if i mod 9 <> 0 then
if i mod 12 <> 0 then
if i mod 13 <> 0 then begin
count := count + 1;
if i < min then
min := i;
end;
end;
writeln(count, min);
end.
Результат работы программы — 559816023.
Ответ: 559816023.