Question

Напишите программу, которая в последовательности целых чисел определяешь сумму чисел, а также количество чисел, кратных 5 или 9. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается 0 (0-признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000

Answer 1

var

 A: array [1..1000] of Integer;

 i, ik, s, c: Integer;

begin

 WriteLn ('Введите последовательность целых чисел, 0 для окончания ввода: ');

 i := 0;

 repeat

   i := i + 1;

   ReadLn (A [i]);

 until A [i] = 0;

 ik := i - 1;

 s := 0;

 c := 0;

 for i := 1 to ik do begin

   s := s + A [i];

   if (A [i] mod 5 = 0) or (A [i] mod 9 = 0) then

     c := c + 1;

 end;

 WriteLn;

 WriteLn ('Сумма чисел = ', s);

 WriteLn ('Количество чисел, кратрных 5 или 9 = ', c);

end.

Answer 2

Вы можете написать программу на Python, чтобы решить эту задачу. Вот пример программы:

pythonCopy code
# Инициализируем переменные для суммы и количества чисел, кратных 5 или 9
сумма_чисел = 0
количество_кратных_5_или_9 = 0

# Ввод чисел от пользователя до ввода 0
while True:
    число = int(input("Введите целое число (0 для завершения): "))
    
    if число == 0:
        break  # Завершаем ввод, если введен 0
    
    # Обновляем сумму чисел
    сумма_чисел += число
    
    # Проверяем, кратно ли число 5 или 9 и увеличиваем счетчик при необходимости
    if число % 5 == 0 or число % 9 == 0:
        количество_кратных_5_или_9 += 1

# Выводим результаты
print(f"Сумма введенных чисел: {сумма_чисел}")
print(f"Количество чисел, кратных 5 или 9: {количество_кратных_5_или_9}")

Эта программа будет принимать целые числа от пользователя до тех пор, пока не будет введен 0, затем вычислит сумму всех введенных чисел и количество чисел, кратных 5 или 9, и выведет результаты на экран.