Даны две переменные вещественного типа: A, B. Перераспределить значе-ния данных переменных так, чтобы в A оказалось меньшее из значений,а в B — большее. Вывести новые значения переменных A и B.

Есть ответ
17.12.2022
497

Ответ


var

  A, B, c : real;

begin

 

  A := ...;

  B := ...;

 

  if A > B then

  begin

    c := A;

    A := B;

    B := c;

  end;

 

Writeln('A = ', A);

Writeln('B = ', B);

 

end.


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.