Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел кратных 8 и оканчивающихся на 6
Ответы
Ответ дал:
0
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
Ответ дал:
0
Обычно в задачах такого типа указывается число N или же запрашивается ввод N с клавиатуры. В задании этого не указано.
Ответ дал:
0
ну там было написано, просто я не стал писать этого. Ведь займёт это минут 5
Ответ дал:
0
Из этого я сделал вывод, что последовательность чисел вводится с клавиатуры. Задачи такого типа тоже бывают.
Ответ дал:
0
понял
Ответ дал:
0
спасибо что пояснили
Ответ дал:
0
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
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
Вас заинтересует
1 год назад
1 год назад
7 лет назад
8 лет назад