Question

ПАСКАЛЬ. Ввести с клавиатуры 3 числа. Вывести их на экран в порядке возрастания. Помогите пожалуйста!

Answer 1

Procedure Swap(var A, B : Integer); begin A := A + B; B := A - B; A := A - B; end;  var A, B, C : Integer; begin Write('Введите A B C : '); ReadLn(A, B, C); if A < B then Swap(A, B); if B < C then Swap(B, C); if A < B then Swap(A, B); WriteLn(A, B, C); end.

Answer 2

var   a, b, c: integer;   begin   Read(a, b, c);   if ((a > b) and (a > c) and (b > c)) Then     Write(a, ' ', b, ' ', c)   else   if ((b > a) and (b > c) and (a > c)) Then     Write(b, ' ', a, ' ', c)   else   if ((c > a) and (c > b) and (a > b)) Then     Write(c, ' ', a, ' ', b)   else   if ((b > a) and (b > c) and (c > a)) Then     Write(b, ' ', c, ' ', a)   else     Write(c, ' ', b, ' ', a) end.

Answer 3

Конечно! Вот пример программы на языке Pascal, которая позволяет ввести с клавиатуры три числа и выводит их на экран в порядке возрастания:

pascalCopy code
program SortNumbers;
var
  num1, num2, num3, temp: Integer;
begin
  WriteLn('Введите первое число: ');
  ReadLn(num1);
  
  WriteLn('Введите второе число: ');
  ReadLn(num2);
  
  WriteLn('Введите третье число: ');
  ReadLn(num3);
  
  if num1 > num2 then
  begin
    temp := num1;
    num1 := num2;
    num2 := temp;
  end;
  
  if num2 > num3 then
  begin
    temp := num2;
    num2 := num3;
    num3 := temp;
  end;
  
  if num1 > num2 then
  begin
    temp := num1;
    num1 := num2;
    num2 := temp;
  end;
  
  WriteLn('Числа в порядке возрастания: ', num1, ', ', num2, ', ', num3);
  ReadLn;
end.

Программа предлагает ввести три числа с помощью операторов ReadLn, затем сортирует их с использованием временной переменной temp и условных операторов if. Наконец, она выводит отсортированные числа на экран с помощью WriteLn.