Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1660 от 20.04.2018 внимание! если программа не работает, обновите версию! begin var a: =arrrandom(49,-50,50); a.println; writeln('сумма равна ',a.sum); if not a.any(t-> t=0) then writeln('произведение равно ', a.aggregate(biginteger(,q)-> p*q)) end. пример -26 -4 -2 -12 -38 -3 3 -12 -22 -30 -41 -38 34 20 34 -7 -10 -34 16 -1 -20 -17 49 -48 50 -37 -30 25 -42 -24 16 7 -27 2 8 44 -31 42 39 -29 -4 21 19 41 -34 -9 -4 48 47 сумма равна -71 произведение равно -5875206582842929080605341032818854321985176247205888000000000
Program str; uses crt; var s: string; i,p,sum: integer; begin p: =1; sum: =0; readln(s); for i: =1 to length(s) do begin if s[i] in ['0'..'9'] then begin p: =p*(ord(s[i])-ord('0')); sum: =sum+(ord(s[i])-ord('0')); end; end; writeln('сумма = ',sum,' ','произведение = ',p); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
alexanders423420.04.2020 02:25
-
ekaterinaborec816.07.2022 08:15
-
beysekeevadaniy20.01.2023 22:03
-
luya2108.11.2022 06:01
-
Оля1111111029.02.2020 19:09
-
12345644502.11.2021 09:31
-
ruslanantosyuk105.02.2021 18:52
-
Sykaper25.03.2023 19:05
-
диди2114.01.2023 05:13
-
sooooooos112.02.2020 12:52
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.