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

Dogi2019 Dogi2019    3   28.03.2019 03:40    27

Ответы
Lopsiwk Lopsiwk  26.05.2020 21:08

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.

ПОКАЗАТЬ ОТВЕТЫ
tarringate tarringate  26.05.2020 21:08

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика