Паскаль.вводится ряд чисел, неизвестное кол-во, - вопрос №8780232 от ulianiabelka 01.03.2020 07:24

Question

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

ulianiabelka · Answer

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