Question

Рассматривается множество целых чисел, принадлежащих числовому отрезку [1721; 4322], которые делятся на 3 и 11 и не делятся на 5, 9, 13, 22. Найдите количество таких чисел и максимальное из них. В ответе запишите два целых числа без пробелов и других дополнительных символов: сначала количество, затем максимальное число.

Для выполнения этого задания можно написать программу или воспользоваться редактором электронных таблиц.

Решите пожалуйста срочно

Answer 1

Решение

var count, max, i: integer;

begin

 max := 0;

 count := 0;

 for i := 1721 to 4322 do begin

     if (i mod 3 = 0) and (i mod 11 = 0) then

         if i mod 5 <> 0 then

             if i mod 9 <> 0 then

                 if i mod 13 <> 0 then

                     if i mod 22 <> 0 then begin

                         count := count + 1;

                         if i > max then  

                             max := i;

                     end;

 end;

 writeln(count, max);

end.

 

Ответ: 194191