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

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

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

Question

Информатика

Акакий

11 марта, 21:13

Даны две переменные вещественного типа: 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.