Question

Организовать цикл для ввода 7-ми чисел и подсчитать ,сколько из них делится на 9

Answer 1

Program f1;
var a: array [1..7] of integer;
k,i :integer;
for i:=1 to 7 do 
readln(a[i]);
for i:=1 to 7 do 
if a[i] mod 9=0 then k:=k+1;
writeln(k);
end.

Answer 2

Для организации цикла ввода 7-ми чисел и подсчета, сколько из них делится на 9, можно использовать язык программирования, например, Python. Вот пример кода:

count = 0  # переменная для подсчета количества чисел, делящихся на 9

for i in range(7):
    num = int(input("Введите число: "))
    if num % 9 == 0:
        count += 1

print("Количество чисел, делящихся на 9:", count)

В данном коде используется цикл `for`, который повторяется 7 раз (так как указан диапазон `range(7)`). На каждой итерации цикла пользователю предлагается ввести число, которое сохраняется в переменную `num`. Затем проверяется, делится ли это число на 9 с помощью оператора `%` (остаток от деления). Если остаток равен 0, то число делится на 9, и переменная `count` увеличивается на 1.

По завершении цикла выводится количество чисел, делящихся на 9, с помощью функции `print`.