Pascal. Задача 8-30

Рассматривается множество целых чисел, принадлежащих числовому отрезку [3052; 7445], которые делятся на 3 и 4 и не делятся на 8, 11, 13. Найдите количество таких чисел и минимальное из них.

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

Решение

var
  i, cnt, min : integer;
begin
  cnt := 0;
  min := 10000;
  for i := 7445 downto 3052 do begin
    if (i mod 3 = 0) and (i mod 4 = 0) and (i mod 8 <> 0) and (i mod 11 <> 0) and (i mod 13 <> 0) then begin
      Inc(cnt);
      min := i;
    end;
  end;
  Writeln('Количество: ', cnt);
  Writeln('Минимум: ', min);
end.

◄▲►