Даны две переменные вещественного типа: A, B. Перераспределить значе-

ния данных переменных так, чтобы в A оказалось меньшее из значений,

а в B - большее. Вывести новые значения переменных A и B.

Question

Информатика

Емилий

22 июля, 21:26

Даны две переменные вещественного типа: A, B. Перераспределить значе-

ния данных переменных так, чтобы в A оказалось меньшее из значений,

а в B - большее. Вывести новые значения переменных A и B.

+3

Ответы (2)

Знаете ответ на вопрос?

Евлампия · Answer 1

var a, b, c:real;

begin

readln (a, b) ;

if a>b then begin

c:=b;

b:=a;

a:=c;

end;

writeln (a,' ', b) ;

end.

Водя · Answer 2

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.