Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Shark238
23.08.2022 21:30 •
Информатика
Числа вводятся пока не ввели ноль. посчитать сумму отрицательных чисел
программу на паскале, ,
Ответ:
Flash017
10.10.2020 23:22
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p < 0).Sum.Print
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dima878787
06.06.2022 03:38
Кроссворд Устройства КОМПЬютераПо горизонтали: 4. Устройство ввода, которое служит для набора текстов и управлениякомпьютером с клавиш. 5. Координатное устройство,...
kira310
05.02.2021 12:15
Самостоятельная работа по теме «Базы данных» 1. Выберите наиболее точное определение. База данных – это 1) программное обеспечение для работы с данными 2) информационная...
sonyafeldman
03.06.2022 16:51
Винни - пух и Пятачок пошли в гости к Кролику. Сколько мёда и сгущёнки можно съесть Винни - Пуху чтобы застрять в двери...
katyasvk
25.01.2021 20:47
ИНФОРМАТИКА 6 КЛАСС ПРЯМО СЕЙЧАС...
ENTER717
14.04.2022 19:52
Какие ошибки могут быть при составления алгоритма? Как можно применить полученные знания в жизни?...
kebabchik111
30.01.2020 01:51
Оын программа лау ортасында анимация құру неліктен маңызды? ...
kos2008
07.05.2021 04:53
Задача 1 Напишите НАИБОЛЬШЕЕ число х, для которого ИСТИННО высказывание: (x 16) И НЕ (x четное) Задача 2 Напишите НАИБОЛЬШЕЕ число х, для которого ИСТИННО высказывание:...
bitmobru
28.03.2022 20:43
Определите, сколько бит информации понадобится для кодирования цветного изображения размером 46 на 18. Глубина цвета равна 4...
Какашка54321
09.02.2022 16:16
Как ты думаешь почему родители пптички не спустились к упавшему гнезду?...
aljoona99
22.06.2022 03:19
1)преобразуйте в байты а)72 бита б)4 кбайта 2)два текста содержат одинаковое количество символов. первый текст составлен из символов алфавита мощностью 256 символов,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p < 0).Sum.Print
end.