Рассматривается множество целых чисел, принадлежащих числовому отрезку [1016; 7937], которые делятся на 3 и не делятся на 7, 17, 19, 27. Найдите количество таких чисел и максимальное из них. В ответе запишите два целых числа без пробелов и других дополнительных символов: сначала количество, затем максимальное число.
Для выполнения этого задания можно написать программу или воспользоваться редактором электронных таблиц.
Приведём решение данной задачи на языке Паскаль:
var sum, max, i: integer;
begin
max := 0;
sum := 0;
for i := 1016 to 7937 do begin
if i mod 3 = 0 then
if i mod 7 <> 0 then
if i mod 17 <> 0 then
if i mod 19 <> 0 then
if i mod 27 <> 0 then begin
sum := sum + 1;
if i > max then
max := i;
end;
end;
writeln(sum, max);
end.
Ответ: 15687935.
Приведём решение Юрия Красильникова на языке Python.
a=[i for i in range(1016,7937+1) if i%3==0 and all(i%x!=0 for x in [7,17,19,27])]
print(len(a),max(a))