Составить программу на языке паскаль: даны три числа. найти сумму и произведение этих чисел
292
356
Ответы на вопрос:
//pascalabc.net //версия 3.3, сборка 1611 begin var (a,b,c): =readreal3(); writeln('сумма: ',a+b+c); write('произведение: ',a*b*c); end.
Var x1,x2,x3,s,p: real; begin write ('введите 1 число: '); readln(x1); write ('введите 2 число: '); readln(x2); write ('введите 3 число: '); readln(x3); s: =x1+x2+x3; p: =x1*x2*x3; writeln('сумма равна: ',s); writeln('произведение равно: ',p); readln; end.
Program otric; var mas: array [1..3] of integer; i, k: integer; begin k : = 0; write('введите числа: '); for i : = 1 to 3 do begin readln(mas[i]); if (mas[i] < 0) and (mas[i] mod 2 < > 0) then k : = k + mas[i]; end; writeln('сумма нечетных отрицательных чисел = ', k); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ArmyLAnn30.05.2023 00:51
-
Dan11l104.07.2021 20:03
-
kirya45113.06.2021 15:02
-
lelyaklochkova17.05.2021 02:20
-
ilonaananko20027.04.2022 10:13
-
Rukishka0529.03.2022 17:31
-
Dawy0114.03.2020 22:19
-
21dasha2130.06.2023 08:55
-
Dashasdh12.03.2020 19:11
-
МААклерша30.05.2020 18:03
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.