Паскаль! определить и вывести на экран количество натуральных чисел, меньших 1000 делящихся на 5 и 7 одновременно

Для решения данной задачи определим количество итераций цикла. Для этого рассмотрим, как в результате выполнения алгоритма меняется значение переменной x. Начальное значение x = 0.На каждой итерации цикла значение переменной x увеличивается на 1, а после окончания цикла x = 28. Следовательно, всего было выполнено 28 итераций.

Теперь рассмотрим, как изменялось значение переменной p. Начальное значение p = 0. На каждой итерации цикла значение переменной p увеличивается на a. Так как всего было выполнено 28 итераций, то после выполнения цикла p = 0 + 28 · a = 28a. Так как цикл выполняется, пока условие p < 140 истинно, то выход из цикла осуществляется при p > 140.

Поэтому значение переменной a находим из условия 28a ≥ 140.

Отсюда a ≥ 5.

Значит, наименьшее значение переменной a должно принимать значение 5.