Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!! Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалась меньшее из значений, а в B - большее. Вывести новые значения переменных A и B Язык Pascal

Answer 1

(Справка: С - дополнительная переменная. Нужна для того, чтобы мы могли поменять А и В местами)

var A,B,C:real;

begin

 C:=0;

 writeln('Напишите значения А и В');

 readln(A,B);

 if A<B then

   writeln('A=',A,' ','B=',B)

 else

 begin

   C:=A;

   A:=B;

   B:=C;

   writeln('A=',A,' ','B=',B)

 end;

end.

Answer 2

Для решения этой задачи на языке Pascal, вам нужно использовать условный оператор `if`. Вам нужно сравнить значения переменных `A` и `B` и, если `A` больше `B`, поменять их местами. Вот как это можно сделать:

var
 A, B, temp: real;
begin
 write('A = ');
 readln(A);
 write('B = ');
 readln(B);

if A > B then
 begin
   temp := A;
   A := B;
   B := temp;
 end;

writeln('A = ', A, ' B = ', B);
 readln;
end.

В этом коде сначала считываются значения переменных `A` и `B`. Затем проверяется условие `if A > B`. Если это условие выполняется, то значения переменных `A` и `B` меняются местами с помощью временной переменной `temp`. В конце программы выводятся новые значения переменных `A` и `B` .