Даны три целых числа a, b ,c если все числа различные.то заменить меньшее на сумму двух других.Вывести на экран новые значения чиселa a,b,c.(Паскаль)

15 Апр 2020 в 19:40
138 +1
0
Ответы
1

program ReplaceMinWithSum;

var
a, b, c, min: integer;

begin
writeln('Enter three different integers: ');
readln(a, b, c);

min := a;

if (b < min) then
min := b
else if (c < min) then
min := c;

if (a = min) then
a := b + c
else if (b = min) then
b := a + c
else
c := a + b;

writeln('New values: ');
writeln('a = ', a);
writeln('b = ', b);
writeln('c = ', c);
end.

18 Апр 2024 в 13:56
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир