• Создать подпрограмму Minmax(A,B), записывающую в переменную A минимальное из значений A и B, а в переменную B - максимальное из этих значен
    Язык Pascal

Ответы 6

  • Это же подпрограмма. После нее запишите следующие:
    • Автор:

      coal
    • 6 лет назад
    • 0
  • beginread(a, b);writeln(a, ' ', b);
  • end.
    • Автор:

      horton
    • 6 лет назад
    • 0
  • Прошу прощения
    • Автор:

      roberto9
    • 6 лет назад
    • 0
  • beginread(a, b);minmax(a, b);writeln(a, ' ', b);end.
  • procedure Minmax(var a, b: integer);var min, max: integer;begin   if a < b then min := a else min := b;  if a > b then max := a else max := b;  a := min;  b := max;end;
    • Автор:

      griffin5
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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