===== PascalABC.NET =====
begin
Println(ReadSeqRealWhile(p -> p <> 0).
Where(p -> p.InRange(0, 5)).Sum / 2)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== PascalABC.NET =====
begin
Println(ReadSeqRealWhile(p -> p <> 0).
Where(p -> p.InRange(0, 5)).Sum / 2)
end.