Написать программу на Паскале: найти сумму чисел от 100 до 200, кратных 17.

Нужно найти сумму всех чисел в диапазоне от 100 до 200, которые делятся на 17 без остатка.

Сначала определим такие числа:

• 102 = 17 × 6

• 119 = 17 × 7

• 136 = 17 × 8

• 153 = 17 × 9

• 170 = 17 × 10

• 187 = 17 × 11

Их сумма:
102 + 119 + 136 + 153 + 170 + 187 = 867

Программа на Паскале может выглядеть так:

pascal
program Sum17;
var
  i, s: integer;
begin
  s := 0;
  for i := 100 to 200 do
    if i mod 17 = 0 then
      s := s + i;
  writeln('Сумма = ', s);
end.

Как работает программа:

1. Переменная s хранит сумму, сначала она равна 0.

2. Цикл for перебирает все числа от 100 до 200.

3. Условие i mod 17 = 0 проверяет, делится ли число на 17.

4. Если делится, число добавляется к сумме.

5. В конце выводится результат.

Ответ: 867.

Можно записать и более короткий вариант, сразу перебирая только кратные 17 числа:

pascal
program Sum17;
var
  i, s: integer;
begin
  s := 0;
  for i := 102 to 187 do
    if i mod 17 = 0 then
      s := s + i;
  writeln('Сумма = ', s);
end.

Но первый вариант обычно считается более понятным и универсальным.