Даны две переменные вещественного типа: A, B. Перераспределить значе-
ния данных переменных так, чтобы в A оказалось меньшее из значений,
а в B — большее. Вывести новые значения переменных A и B.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
