Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел кратных 8 и оканчивающихся на 6​

Обычно в задачах такого типа указывается число N или же запрашивается ввод N с клавиатуры. В задании этого не указано.

ну там было написано, просто я не стал писать этого. Ведь займёт это минут 5

Из этого я сделал вывод, что последовательность чисел вводится с клавиатуры. Задачи такого типа тоже бывают.

понял

спасибо что пояснили

Function test2(n As Integer) As IntegerDim i As Integer, j As Integeri = Int((n + 8) / 10)i = i * (5 * i - 3)j = Int((n + 3) / 10)j = j * (5 * j + 2)test2 = (i + j) * 8End FunctionExcel VBA

program raf105;

var a,sum: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

 readln(a);

 if (a mod 8 = 0) and (a mod 10 = 6)

   then sum+= a;

until a = 0;

writeln('Сумма: ',sum);

end.

PascalABC 3.4.2