Написать программу для решения задачи: посчитать количество чисел от 1 до 1000, кратных 7 и чётных (проверить кратность 7 командой mod, введя условие в цикл).

pascal
program CountNumbers;

var
  i, count: integer;

begin
  count := 0;

  for i := 1 to 1000 do
  begin
    if (i mod 7 = 0) and (i mod 2 = 0) then
      count := count + 1;
  end;

  writeln('Количество чисел: ', count);
end.

В цикле перебираются все числа от 1 до 1000. Условие i mod 7 = 0 проверяет, делится ли число на 7 без остатка, а i mod 2 = 0 — является ли оно чётным. Если оба условия выполняются, счётчик увеличивается на 1.

Результат работы программы:

Количество чисел: 71