Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
kirikdementev
19.02.2021 14:12 •
Информатика
Склавиатуры вводится последовательность вещественных чисел. признак конца ввода – 0. определить полусумму всех чисел в интервале от 0 до 5.
программа в среде pascal
Показать ответ
Ответ:
Mykolaj8
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 оценок)
Популярные вопросы: Информатика
даканчик
14.01.2023 09:37
ИНФОРМАТИКА ОЧЕНЬ НУЖНО...
ExKise
11.02.2020 21:04
Зависимость задана функцией y(a,b), в которой одно из выражений y1 = (a+b)*(a-b), y2 = (a*b) является числителем, а другое- знаменателем. В знаменатель становится то из выражений,...
karipovilna
10.06.2021 15:58
Достоинства растровой графики: Масштабирование (в частности, увеличения) изображения с потерей качества. Невозможность масштабирования. Возможность воспроизведения изображений любого...
Зефирка170504
21.10.2020 14:19
У исполнителя ДваПять две команды, которым присвоены номера: 1. отними 2 2. раздели на 5 Выполняя первую из них, ДваПять отнимает от числа на экране 2, а выполняя вторую, делит это...
egorkian
21.09.2021 16:51
Пиши пропущенные слова-это документы,которые сопровождают программное обеспечение и описывают технические требования к игре...
Алина06072003
07.09.2021 04:21
Автомат получает на вход трехзначное десятичное число, в котором нет цифр больше, чем 6. По этому числу строится новое число по следующим правилам. 1. Вычисляется сумма первой и...
Ерко365
06.02.2021 07:29
Дано: for I := 1 to 20 do При последнем выполнении тела цикла I = ?...
shaxnozik1412
15.07.2022 16:56
Увеличить на 4 все элементы в первой половине массива А (считать, что в массиве чётное число элементов)...
Lisaaaaakot
25.11.2020 03:30
С учетом того, что описания переменных выглядят так: var n, k : integer; R : real; укажите неверно записанные операторы. ответ обоснуйте. n := k mod 5; k := R + 1; n := 21 div 6;...
madinakz1
04.01.2021 02:04
(Проданные путевки по годам для Чехии и Италии) и объемную линейчатую диаграмму(Проданные путевки по годам для Польши решить эту задачу ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
PascalABC.NET
begin
Println(ReadSeqRealWhile(p -> p <> 0).
Where(p -> p.InRange(0, 5)).Sum / 2)
end.