Ответы на вопрос:
//pascalabc.net //версия 3.3, сборка 1611 begin write(readseqintegerwhile(x-> x< > 0).where(x-> x< 0).aggregate(biginteger(,y)-> (x*; end.
Популярно: Информатика
-
1вывести на экран все трехзначные числа кратные 50 2 найти количество...
Saeg02.05.2021 13:19 -
Как в ворде написать большие буквы? (на а4)...
Nаstуа2304.05.2021 14:03 -
Статья, набранная на компьютере, содержит 64 страницы, на каждой...
lemenchuk200110.06.2021 20:33 -
Статья, набранная на компьютере, содержит 32 страницы, на каждой...
Kurban959525.03.2021 12:29 -
Статья, набранная на компьютере, содержит 32 страницы, на каждой...
Vladikf01Vlad22009.03.2021 13:11 -
Какую выполняет программа program pr1; var a: array [1..5] of...
альона44в31123401.12.2020 06:05 -
45 баллов Задача для меня сложна. Сколько времени потребуется...
TheWalkingDeadTWD30.01.2023 16:33 -
Что будет на экране после выполнения следующей программы L= 1...
andrewmikilov22.03.2021 01:06 -
Что можно подарить одноклассникам на 23 февраля, маленький, но...
Propert18.06.2023 16:03 -
Команда это... А)Каждая буква В)Каждое слово С) каждый ярлык...
anastasanesvido15.11.2022 15:07