Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

понял

Answer 6

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

Answer 7

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

Excel VBA