Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
DenNewLen38
02.06.2020 17:51 •
Информатика
Напишите программу на паскале для вычисления произведение отрицательных. количество введенных чисел неизвестно, 0 – признак окончания ввода чисел.
Показать ответ
Ответ:
tushenka88
07.10.2020 19:31
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x<0).Aggregate(BigInteger(1),(x,y)->(x*y)));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
МиленаКриницына
29.11.2021 09:39
Определите цвет, если не бумаге нанесены краски в системе цветопередачи cmyk: c=0, m=0, y=0: 1) синий 2) черный 3) пурпурный 4) белый форматирование - это: 1) изменение параметров...
SledjeTV
12.08.2021 23:10
Ну ответьте , нужно определите цвет, если не бумаге нанесены краски в системе цветопередачи cmyk: c=0, m=0, y=0: 1) синий 2) черный 3) пурпурный 4) белый...
zhanna241
16.10.2020 17:13
Автомобильный номер состоит из нескольких букв (количество букв одинаковое во всех номерах), за которыми следуют три цифры. при этом используются 10 цифр и только 5 букв:...
mixailoborin0
18.02.2022 13:45
Спо информатике ! (pascal abc) 1)дано 40 случайных целых чисел,∈ (20; 82). подсчитать количество чётных чисел , кратных 3. вывести эти числа на экран. 2)найти наименьшее из...
li494
25.11.2020 07:38
2. определите вид отношения между совместимыми понятиями и изобразите его с круговых схем (кругов эйлера). а) офицер. спортсмен. орденоносец. 5. сделайте вывод из посылки...
Босс05
14.01.2022 15:12
Информатика 1100011²-10111² с решением...
olia108
14.01.2022 15:12
Верно записано имя файла 6кл@ 6кл? 6кл& 6кл! далее...
Ученик221603
24.09.2022 11:59
2^16 байтов перевести в килобайтов, 1/4 мегабайт перевести в килобайты...
ТаСм
29.04.2021 03:54
Запросы к поисковому серверу. для каждого запроса указан его код — соответствующая буква от а до г. запишите в таблицу коды запросов слева направо в порядке убывания количества...
vvvvsidorina
23.07.2020 13:31
Год в котором французский инженер валтат выдвинул идею использовать двоичные системы счисления при создании механических счётных устройств...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x<0).Aggregate(BigInteger(1),(x,y)->(x*y)));
end.