Ввести три числа. Найти сумму только положительных чисел. Если все три значения не удовлетворяют условию, вывести на экран соответствующее сообщение.
199
312
Ответы на вопрос:
program Programa;
var a, b, c, d: integer;
begin
d:=0;
writeln (' Введите три числа');
readln (a, b, c);
if (a>0)
then
begin
d:=d+a;
end;
if b>0
then
begin
d:=d+b;
end;
if c>0
then
begin
d:=d+c;
end;
if (d=0)
then
begin
writeln ('Все корни отрицательные');
end
else
begin
writeln (d);
end;
end.
Объяснение:
На, сделал, проверил, работает.
Var a,b,c,min : integer; begin write('введите три числа через пробел и нажмите enter: '); readln(a,b,c); if (a > b) then if (a > c) then min : = c else min : = b else if (b > c) then min : = c else min : = a; writeln('минимальное число: ',min); readln; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
tyulegenevapolina23.12.2021 12:14
-
kozltanya201302.01.2022 22:56
-
Kuanova200526.10.2020 18:25
-
DashaL0425.02.2021 09:15
-
nuraytolegen9112.02.2020 12:22
-
YomiTan02.03.2023 00:33
-
Chumaeva7916.04.2020 10:34
-
nasty2004b11.12.2020 07:18
-
Плаоцтвтч03.10.2022 11:11
-
kall507.07.2021 03:19
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.