Рассматривается множество целых чисел, принадлежащих числовому отрезку [1016; 7937], которые делятся на 3 или 7 и не делятся на 2, 10, 14, 18. Найдите количество таких чисел и минимальное из них. В ответе запишите два целых числа без пробелов и других дополнительных символов: сначала количество, затем минимальное число.
Для выполнения этого задания можно написать программу или воспользоваться редактором электронных таблиц.
Приведём решение данной задачи на языке Паскаль:
var count, min, i: integer;
begin
min := 20000;
count := 0;
for i := 1016 to 7937 do begin
if (i mod 3 = 0) or (i mod 7 = 0) then
if i mod 2 <> 0 then
if i mod 10 <> 0 then
if i mod 14 <> 0 then
if i mod 18 <> 0 then begin
count := count + 1;
if i < min then
min := i;
end;
end;
writeln(count, min);
end.
Заметим, что если число не делится на 2, то оно не делится также на 10, 14 и 18, поэтому количество проверяемых в программе условий можно сократить. Получим следующую программу:
var count, min, i: integer;
begin
min := 20000;
count := 0;
for i := 1016 to 7937 do begin
if (i mod 3 = 0) or (i mod 7 = 0) then
if i mod 2 <> 0 then begin
count := count + 1;
if i < min then min := i;
end;
end;
writeln(count, min);
end.
Ответ: 14831017.