Паскаль.вводится ряд чисел, неизвестное кол-во, но конец ряда всегда ноль; найти количество чисел кратных пяти и больше пяти (одновременно)

daniil14537 daniil14537    2   19.09.2019 19:00    1

Ответы
petukhova05 petukhova05  08.10.2020 02:49
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqIntegerWhile(t->t<>0).Where(t->(t>5) and (t mod 5=0)).Count.Println
end.

Пример
13 -10 8 5 24 35 52 40 20 18 0
3
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика