Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
sudibor
25.05.2020 04:12 •
Информатика
Напишите программу на паскале для вычисления произведение отрицательных. количество введенных чисел неизвестно, 0 – признак окончания ввода чисел.
Показать ответ
Ответ:
superdyuseldor
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 оценок)
Популярные вопросы: Информатика
mishinevav
28.04.2020 22:50
Если два выражения принимают... значения при всех значениях переменных, они называются равносильными или ... равными....
ДАШУНЯ1311
28.12.2022 03:31
Дан одномерный массив. Запиши верный ответ.−17 30 0 −4 2 12Значение элемента массива — 12.Индекс элемента массива — ...
Ник111111н
24.09.2020 07:36
В книге 128 страниц, на каждой странице 32 строки, в каждой строке 16 символов. Определите объем информации всей книги, если один символ кодируется 2 байтами, ответ дайте в килобайтах...
непр1
01.06.2022 01:44
. написать программу,. Если произведение трёх чисел больше или равно 120, то программа прибавляет к этому произведению 100. если меньше 120, то прибавляет 1000....
окрвовлвлк
03.06.2022 16:47
Укажи код автомобиля, который окажется на 1 месте после сортировки. Запиши в поле ответ в виде числа. ответ: ....
КрохаДи
05.02.2021 17:51
Запишите в тетради алгоритм для исполнителя Вычислитель, содержащий не более 5 команд, если система команд Вычислителя: 1 – умножь на 3 2 – вычти 1 ⦁ получения из числа 2 числа...
tsagol10
29.06.2022 22:03
Выпишете в тетрадь формальную математическую модель (основная формула изменения числа рыб), и сделайте пояснения....
alkhodzhaevaka
23.07.2022 14:34
Задание 1 Измените программу так, чтобы: а) рисовалась сплошная вертикальная линия красного цвета; б) линия располагалась по диагонали экрана (штрихпунктирная, желтого цвета)....
ПолинаКорышкова
06.07.2020 00:15
Какие из забытых традиций на ваш взгляд,нам полезно было бы восстановить?...
gojenovalilya
06.07.2020 00:15
Вычислить cos5п/6; sin(-7п/4); tg11п/3; ctg(-3,5п)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.