Question

С клавиатуры вводится целое число N>0, а затем еще N целых чисел. Подсчитайте, сколько среди них трехзначных чисел, кратных семи.

Answer 1

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger;
  Writeln(ReadSeqInteger(n).Where(t->t.Between(100,999) and (t mod 7=0)).Count)
end.

Пример
5
77 -77 777 700 7777
2

Answer 2

Для решения данной задачи, мы должны ввести целое число N, а затем еще N целых чисел с клавиатуры. Наша задача состоит в подсчете количества трехзначных чисел, которые кратны семи.

Давайте рассмотрим, как решить эту задачу на псевдокоде:

1. Инициализируйте переменную `count` равную 0. Она будет использоваться для подсчета количества трехзначных чисел, кратных семи.

2. Введите целое число N с клавиатуры.

3. Для каждого числа от 1 до N выполните следующие шаги: - Введите число `num` с клавиатуры. - Проверьте, является ли число трехзначным и кратным семи. - Если число удовлетворяет обоим условиям, увеличьте значение переменной `count` на 1.

4. Выведите значение переменной `count`, которое будет содержать количество трехзначных чисел, кратных семи.

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

count = 0
N = int(input("Введите число N: "))

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

print("Количество трехзначных чисел, кратных семи:", count)

Теперь вы можете использовать данный код для решения задачи. Просто введите целое число N, а затем введите N целых чисел с клавиатуры, и программа выведет количество трехзначных чисел, кратных семи.