Question

Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 7. Программа получает на вход целые числа, количество введённых чисел не известно, последовательность чисел заканчивается числом 0 (0- признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30000. Программа должна вывести одно число: количество чётных чисел, кратных 7. Входные данные: -32, 14, 17, 0. Выходные данные: 1.

Answer 1

Ответ:

program aaa;

var i,num,y,x : integer;

begin

 write('Количество слов : ');

 read(x);

 for i := 1 to x do

 begin

   write('Заполните число ',i,' : ');

   read(num);

     if num mod 2 = 0 then

       if  num mod 7 = 0 then

     begin

       inc(y);

     end;

 end;

 writeln('Колво - ',y);

end.

Объяснение

паскаль

Answer 2

Ответ:

Вот на котлине, тут я решил реализовать так чтобы, можно было вводить в один рядок через пробел. На ноль проверка уже потом при переборе массива, после 0 значения уже не берутся в оборот.

Объяснение:

fun main(){

   var array = readInts()

   var bool = true

   var counter = 0

   for (i in array.indices){

       if (array[i] == 0) bool = false

       if (bool){

           if ((array[i] % 2 == 0) && (array[i] % 7 == 0)){

               counter++

           }

       }

   }

   println()

   println(counter)

}

fun readInts() = readLine()!!.split(" ").filter { it.isNotEmpty() }.map { it.toInt() }

Answer 3

Вот пример программы на Python, которая решает задачу:

count = 0
while True:
    num = int(input())
    if num == 0:
        break
    if num % 2 == 0 and num % 7 == 0:
        count += 1

print(count)

Эта программа считывает целые числа из входных данных до тех пор, пока не встретит число 0. Затем она проверяет каждое считанное число на четность и кратность 7. Если число удовлетворяет обоим условиям, счетчик увеличивается на 1. В конце программа выводит значение счетчика, которое и является количеством четных чисел, кратных 7.

Для входных данных -32, 14, 17, 0 программа выведет число 1, так как только число 14 является четным и кратным 7.

Примечание: В данном случае программа не превышает ограничения по количеству чисел (не более 1000) и по модулю чисел (не более 30000), поэтому нет необходимости проверять эти ограничения в коде программы.

Источник: -