Pascal. Задача 8-28

Рассматривается множество целых чисел, принадлежащих числовому отрезку [2047; 9532], которые делятся на 5 и не делятся на 6, 10, 16, 27. Найдите количество таких чисел и максимальное из них.

Вывести два целых числа: сначала количество, затем максимальное число.

Решение

var
  i, cnt, max : integer;
begin
  cnt := 0;
  max := 0;
  for i := 2047 to 9532 do begin
    if (i mod 5 = 0) and (i mod 6 <> 0) and (i mod 10 <> 0) and (i mod 16 <> 0) and (i mod 27 <> 0) then begin
      Inc(cnt);
      max := i;
    end;
  end;
  Writeln('Количество: ', cnt);
  Writeln('Максимум: ', max);
end.

◄▲►