Question

Даны 3 целых числа A,B,C, которые пользователь вводит с клавиатуры программа должна вывести на экран данные числа в порядке возрастания, если хоть 2 числа между собой равны, то запросить ввод данных заново. Язык: Pascal.

Answer 1

var

 x1,x2,x3,middle:integer;

begin

 read(x1,x2,x3);

 while((x1=x2) or (x2=x3) or (x1=x3)) do begin

   write('Введите данные снова: ');

   read(x1,x2,x3);

   writeln();

 end;

 middle := (x1 + x2 + x3) - max(max(x1,x2),x3) - min(min(x1,x2),x3);

 write(min(min(x1,x2),x3) ,' ', middle ,' ' , max(max(x1,x2),x3));

end.

Answer 2

Для решения данной задачи на языке Pascal, можно использовать следующий код:

pascalCopy code
program SortThreeIntegers;

var
  A, B, C: Integer;

procedure InputIntegers;
begin
  WriteLn('Введите три целых числа:');
  Write('A: ');
  ReadLn(A);
  Write('B: ');
  ReadLn(B);
  Write('C: ');
  ReadLn(C);
end;

procedure SortAscending(var x, y, z: Integer);
var
  temp: Integer;
begin
  if x > y then
  begin
    temp := x;
    x := y;
    y := temp;
  end;
  
  if y > z then
  begin
    temp := y;
    y := z;
    z := temp;
  end;
  
  if x > y then
  begin
    temp := x;
    x := y;
    y := temp;
  end;
end;

begin
  repeat
    InputIntegers;
  until (A <> B) and (A <> C) and (B <> C);
  
  SortAscending(A, B, C);
  WriteLn('Числа в порядке возрастания: ', A, ', ', B, ', ', C);
end.

Программа запрашивает у пользователя ввод трех целых чисел (A, B, C) и сохраняет их в соответствующих переменных. Затем она проверяет условие, что ни одна пара чисел не равна друг другу. Если хотя бы два числа равны, то программа запрашивает ввод данных заново. Когда все три числа различны, они сортируются в порядке возрастания с помощью процедуры SortAscending, и результат выводится на экран.