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