Определите сумму трехзначных чисел кратных 7 Сделать программу в Паскале

Question

Определите сумму трехзначных чисел кратных 7 Сделать программу в Паскале

Answer 1

// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var n := 100;

 var d := n mod 7;

 if d <> 0 then n += 7 - d; // первое из трехзначных чисел, кратное семи

 Range(n, 999, 7).Sum.Println // с шагом 7, экономим время в шесть раз

end.

---

Answer 2

// проверено в PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018

var

s, i: integer;

begin

s := 0;

for i := 100 to 999 do

if (i mod 7) = 0 then

s := s + i;

Print(s);

end.

---