Склавиатуры вводится целое число n 0, а затем еще - вопрос №08267975 от 1ЛиКа6 03.12.2022 11:48

Question

Информатика: Склавиатуры вводится целое число n 0, а затем еще n целых чисел. подсчитайте, сколько среди них трехзначных чисел, кратных семи.

1ЛиКа6 · Answer

// 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

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