Question

Даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают остаток 1

Answer 1

var i:integer;

Begin

  for i:= 35 to 87 do

    if i mod 7 =1 then

      writeln(i);

End.

Answer 2

Конечно, давайте решим задачу.

Нам нужно найти все натуральные числа в интервале от 35 до 87, которые при делении на 7 дают остаток 1.

Итак, начнем с самого первого числа в диапазоне, то есть с 35, и будем поочередно проверять числа до 87.

\[35 \mod 7 = 0\] - Не подходит (остаток 0, а не 1).

\[36 \mod 7 = 1\] - Подходит.

\[37 \mod 7 = 2\] - Не подходит.

\[38 \mod 7 = 3\] - Не подходит.

\[39 \mod 7 = 4\] - Не подходит.

\[40 \mod 7 = 5\] - Не подходит.

\[41 \mod 7 = 6\] - Не подходит.

\[42 \mod 7 = 0\] - Не подходит.

\[43 \mod 7 = 1\] - Подходит.

\[44 \mod 7 = 2\] - Не подходит.

\[45 \mod 7 = 3\] - Не подходит.

\[46 \mod 7 = 4\] - Не подходит.

\[47 \mod 7 = 5\] - Не подходит.

\[48 \mod 7 = 6\] - Не подходит.

\[49 \mod 7 = 0\] - Не подходит.

\[50 \mod 7 = 1\] - Подходит.

Продолжаем таким образом, проверяя каждое число в интервале от 35 до 87. Числа, при делении на 7 которых получается остаток 1, это:

\[36, 43, 50, 57, 64, 71, 78, 85\].

Итак, эти числа удовлетворяют условию задачи.