Рассматривается множество целых чисел, принадлежащих числовому отрезку [8812; 12285], которые делятся на 8 или 19 и не делятся на 4, 9, 14, 16. Найдите количество таких чисел и максимальное из них. В ответе запишите два целых числа без пробелов и других дополнительных символов: сначала количество, затем максимальное число.
Для выполнения этого задания можно написать программу или воспользоваться редактором электронных таблиц.
Приведём решение данной задачи на языке Паскаль:
var count, max, i: integer;
begin
max := 0;
count := 0;
for i := 8812 to 12285 do begin
if (i mod 8 = 0) or (i mod 19 = 0) then
if i mod 4 <> 0 then
if i mod 9 <> 0 then
if i mod 14 <> 0 then
if i mod 16 <> 0 then begin
count := count + 1;
if i > max then
max := i;
end;
end;
writeln(count, max);
end.
Ответ: 11712274.
Примечание.
Заметим, что если число не делится на 4, то оно не делится также на 8 и на 16. Следовательно, можно рассматривать только числа, которые делятся на 19 и не делятся на 4, 9 и 14. При этом уменьшится количество условий, проверяемых в программе.
var count, max, i: integer;
begin
max := 0;
count := 0;
for i := 8812 to 12285 do begin
if i mod 19 = 0 then
if i mod 4 <> 0 then
if i mod 9 <> 0 then
if i mod 14 <> 0 then begin
count := count + 1;
if i > max then
max := i;
end;
end;
writeln(count, max);
end.