kuzmichkinvale
12.06.2020 04:53

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

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
lera10u
05.05.2020 17:55

PascalABC.NET

begin

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

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

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота