Рассматривается множество целых чисел, принадлежащих числовому отрезку [7487; 10006], которые делятся на 13 и не делятся на 3, 5, 17, 22. Найдите количество таких чисел и максимальное из них. В ответе запишите два целых числа без пробелов и других дополнительных символов: сначала количество, затем максимальное число.
Для выполнения этого задания можно написать программу или воспользоваться редактором электронных таблиц.
Приведём решение данной задачи на языке Паскаль:
var count, max, i: integer;
begin
max := 0;
count := 0;
for i := 7487 to 10006 do begin
if i mod 13 = 0 then
if i mod 3 <> 0 then
if i mod 5 <> 0 then
if i mod 17 <> 0 then
if i mod 22 <> 0 then begin
count := count + 1;
if i > max then
max := i;
end;
end;
writeln(count, max);
end.
Ответ: 949997.