за информатику, работа с программой Паскаль

bashatsn bashatsn    3   08.05.2020 20:00    0

Ответы
graf2231 graf2231  18.08.2020 13:53

// PascalABC.NET

begin

 var m := ReadSeqIntegerWhile(p -> p <> 0)

     .Where(p -> p in 10..99)

     .DefaultIfEmpty

     .Average;

 if m > 0 then

   m.Print

 else

   Print('NO')

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика