Question

даны n натуральных чисел a1...a2...an.Определить и вывести количество членов последовательности кратных 3 и не кратных 5

Answer 1

Var 
   n,k,i: integer;
   a: array[1..1000] of integer;
begin
   write ('Введите N: ');
   read (n);
   for i:=1 to n do begin
      write ('Введите ',i,'-й член последовательности: ');
      readln (a[i]);
      if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0)
         then k:=k+1
   end; 
   writeln ('K = ',k)
end.
---------------------------------------------------
Введите N: 5
Введите 1-й член последовательности: 12
Введите 2-й член последовательности: 9
Введите 3-й член последовательности: 7
Введите 4-й член последовательности: 15
Введите 5-й член последовательности: 30
K = 2

Answer 2

Для решения данной задачи мы можем использовать цикл, в котором будем перебирать все элементы последовательности и проверять, является ли текущий элемент кратным 3 и не кратным 5. Если это условие выполняется, увеличиваем счетчик на 1.

Вот код на языке Python, который решает данную задачу:

lessCopy code
n = int(input("Введите количество чисел: "))
a = []

for i in range(n):
    a.append(int(input(f"Введите {i+1}-е число: ")))

count = 0
for i in range(n):
    if a[i] % 3 == 0 and a[i] % 5 != 0:
        count += 1

print(f"Количество членов последовательности кратных 3 и не кратных 5: {count}")

Сначала мы запрашиваем у пользователя количество чисел в последовательности и сами числа. Затем мы создаем переменную count и запускаем цикл, в котором перебираем все элементы последовательности и проверяем, удовлетворяет ли текущий элемент условию кратности 3 и не кратности 5. Если да, увеличиваем count на 1. После завершения цикла выводим значение count.