Question

Написать программу, которая подсчитывает сумму и количество чисел последовательности, делящихся на 8 без остатка. Размер последовательности определяет сам пользователь программы. Принять, что последовательность состоит только из целых положительных чисел.

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var a:=ReadArrInteger(ReadInteger()).Where(x->x mod 8=0);
write('кол-во чисел, делящихся на 8 без остатка: ',a.Count(),'; сумма: ',a.Sum());
end.

Answer 2

Program qq;
var a, b, c, d, e:integer;
BEGIN
d:=0;
e:=0;
writeln('Введите количество чисел');
readln (a);
writeln ('Введите числа');
for b:=1 to a do
begin

readln (c);
if c mod 8 = 0 then
d:=d+c;
e:=e+1;
end;
Writeln ('Количество чисел кратных восьми - ', e, '; Их сумма - ', d);
END.

Answer 3

Какой язык программирования вы хотели бы использовать для написания этой программы? Я могу предложить решение на языке Python:

pythonCopy code
# Запрашиваем у пользователя размер последовательности
n = int(input("Введите размер последовательности: "))

# Инициализируем переменные для подсчета суммы и количества чисел, делящихся на 8 без остатка
sum = 0
count = 0

# Запрашиваем у пользователя последовательность и обрабатываем ее
for i in range(n):
    num = int(input("Введите число: "))
    if num % 8 == 0:
        sum += num
        count += 1

# Выводим результаты
print("Сумма чисел, делящихся на 8 без остатка: ", sum)
print("Количество чисел, делящихся на 8 без остатка: ", count)

В этой программе мы сначала запрашиваем у пользователя размер последовательности n, затем инициализируем переменные sum и count для подсчета суммы и количества чисел, делящихся на 8 без остатка. Затем мы запрашиваем у пользователя саму последовательность и обрабатываем ее в цикле: если число делится на 8 без остатка, то мы добавляем его к сумме и увеличиваем счетчик. Наконец, мы выводим результаты на экран.