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

Ответы 2

  • program das; var a, b, c, d, e: real; begin readln(a, b, c); if (a = b) or (b = c) or (a = c) then else if (a < b) and (a < c) then writeln(b+c, b, c); if (b < a) and (b < c) then writeln(a, a+c, c); if (c < a) and (c < b) then writeln(a, b, a+b) end.
    • Автор:

      volvo
    • 6 лет назад
    • 0
  • program das;var a, b, c, d, e: real;beginreadln(a, b, c);if (a = b) or (b = c) or (a = c)  then   else     if (a < b) and (a < c)      then writeln(b+c, b, c);    if (b < a) and (b < c)      then writeln(a, a+c, c);    if (c < a) and (c < b)      then writeln(a, b, a+b)end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years