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

Question

Помогите,пожалуйста, по информатике. Найти сумму чисел от 100 до 200 кратных 7. Подсчитать кол-во этих чисел.

Answer 1

// PascalABC.NET
// Найти сумму чисел от 100 до 200 кратных 7.
// Подсчитать кол-во этих чисел.

const
    nach = 100;                        // Диапазон значений
    kon = 200;

var
    n, s : integer;
    
begin
    for var i := nach to kon do        // Проверяем все числа по порядку
        if i mod 7 = 0 then begin    // Если оно кратно 7, то
            s := s + i;                // производим подсчеты
            n := n + 1
        end;
    write('Сумма = ', s, '. Количество - ', n)
end.

---