Question

С клавиатуры вводится последовательность вещественных чисел. Признак конца ввода – 0. Определить полусумму всех чисел в интервале от 0 до 5.

Программа в среде Pascal

Answer 1

===== PascalABC.NET =====

begin

 Println(ReadSeqRealWhile(p -> p <> 0).

     Where(p -> p.InRange(0, 5)).Sum / 2)

end.