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

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

  1. Ответ
    Ответ дан PuerDeSatan
    var  
    a, b, p: real;
    begin 
    write('Введите значения A и B через пробел: '); 
    readln(a,b); 
    if a > b then   
    begin   
    p:=a;   
    a:=b;   
    b:=p;   
    end; 
    writeln('A = ', a, '; B = ', b);
    end.