Сидор
5 год назад
С клавиатуры вводится целое число N>0, а затем еще N целых чисел. Подсчитайте, Как узнать сколько среди них трехзначных чисел, кратных семи.
ОТВЕТЫ
Добрин
Oct 24, 2020
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
333
Смежные вопросы:
