profile
Опубликовано 6 лет назад по предмету Информатика от meyz

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

  1. Ответ
    Ответ дан Yegor55

    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.

  2. Ответ
    Ответ дан Kitsu

    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.

Самые новые вопросы