Question

Напишите программу которая выводит сумму всех чисел кратных 8 и больших 40

Answer 1

PascalABC.NET
Версия 3.3.5 Сборка 1662 (29.04.2018)
var n, i, a, sum : integer;
begin
  readLn(n);
  sum := 0;
  for i :=0 to n do
  begin
    readLn(a);
    if (a mod 8 = 0) and (a > 40) then
    begin
      sum := sum+a;
    end
  end;
  writeLn(sum);
end.

Answer 2

Для решения этой задачи, вам нужно написать программу, которая будет перебирать числа, начиная с 41 и проверять каждое из них на кратность 8. Если число кратно 8, оно будет добавлено к общей сумме. Вот пример программы на языке Python:

pythonCopy code
def sum_of_multiples_of_eight_above_forty():
    total_sum = 0

    for num in range(41, 10001):  # Мы выбираем верхнюю границу 10001 для примера
        if num % 8 == 0:
            total_sum += num

    return total_sum

result = sum_of_multiples_of_eight_above_forty()
print("Сумма всех чисел кратных 8 и больших 40:", result)

В этом примере, мы используем функцию sum_of_multiples_of_eight_above_forty() для вычисления суммы всех чисел кратных 8 и больших 40. Затем мы выводим результат на экран с помощью функции print(). При желании, вы можете изменить верхнюю границу range() в цикле, чтобы увеличить или уменьшить диапазон чисел, которые будут проверяться на кратность 8 и участвовать в суммировании.