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.

Answer 3

Конечно! Ниже приведена программа на языке Паскаль для определения суммы трехзначных чисел, кратных 7.

pascalCopy code
program SumOfMultiplesOf7;

var
  sum, num: integer;

begin
  sum := 0;
  
  // Используем цикл для перебора всех трехзначных чисел
  for num := 100 to 999 do
  begin
    // Проверяем, кратно ли число 7
    if num mod 7 = 0 then
      sum := sum + num;
  end;

  writeln('Сумма трехзначных чисел, кратных 7: ', sum);
end.

Программа перебирает все трехзначные числа (начиная с 100 до 999) и проверяет, кратно ли число 7. Если число кратно 7, оно добавляется к переменной sum. По окончании выполнения цикла, программа выводит сумму всех трехзначных чисел, кратных 7.