Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
александр199110
30.01.2020 03:53 •
Информатика
Напишите программу на паскале для вычисления произведение отрицательных. количество введенных чисел неизвестно, 0 – признак окончания ввода чисел.
Показать ответ
Ответ:
Aaa1nuchto
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 оценок)
Популярные вопросы: Информатика
Нвдуооп
02.07.2020 10:09
Назови основные показатели погоды (их 4)...
helpmepls69
07.03.2021 10:54
Переведите в десятичную систему счисленияа. 55,67(8-тичная) Б. Е3, 35(16-тичная)...
Asja21
10.11.2020 00:14
С чего начинается процесс решения любой задачи...
balasanyansilva
27.02.2023 12:12
Назовите и опишите два , позволяющих уменьшить размер документа в формате docx. Наименование 1 Описание Наименование 2 Описание...
may12312
27.07.2020 05:10
Футбольная команда набирает девочек от 10 до 15 лет включительно. Напишите программу, которая запрашивает возраст и пол претендента, используя обозначение пола буквы m...
AlexIQ161
27.01.2023 00:52
Які одиниці вимірювання значень цієї властивості...
knestor
01.12.2021 09:23
Верно ли утверждение? Числа в римской системе счисления получаются путём сложения или вычитания ключевых цифр....
Андрей15777
06.08.2022 21:01
ХЕЛП 6 устройств ввода информации4 устройства вывода информации2 устройства вывода и ввода информации ОДНОВРЕМЕННО...
FlaxyPlay
29.12.2022 10:23
Описать информационный процесс ИЗУЧЕНИЕ ЗЕМЛИ...
ivanovapolina86
26.03.2021 07:34
7 класс информатика размеры файлов урок 1 онлайн мектеп датэбаё от всей души буду благодарна ♥️♥️❤♥️❤♥️...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.