rystamgfţ
26.02.2023 07:31

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

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ladybutiyarowa
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-бота