GAECHKA
Твоя помощница в решении задач

Даны любые три переменные. Расположить из значения в порядке возрастания

Помогите пж
0
вопрос задан

Источник


2 ответа
А какого типа переменные?
Целочисленные переменные.

program Project1;
var
 a,b,c: integer; // Переменные для хранения значения чисел.
 tmp: integer;   // Вспомогательная переменная для организации обмена значениями.
begin
  writeln('Введите значение переменной а');
  Readln(a);
  writeln('Введите значение переменной b');
  Readln(b);
  writeln('Введите значение переменной c');
  Readln(c);
  repeat
  if b then  // Условие проверки  возрастания между переменными a и b
   begin
     tmp:= a;
       a:= b;
       b:= tmp;
   end;
  if c then   // Условие проверки  возрастания  между переменными b и c
      tmp:= b;
       b:= c;
       c:= tmp;
  until (a ) and (b );   // Условие остановки цикла.
  Writeln(a,'  ',b,'  ',c);
 
  Readln;
end.