// 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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
// 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.