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

программа в среде pascal

vjfduxhufsnks46 vjfduxhufsnks46    2   18.11.2019 22:34    7

Ответы
AmyDay123 AmyDay123  05.05.2020 17:55

PascalABC.NET

begin

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

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

end.

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