Даны три числа. Вывести сначала наименьшее, затем наибольшее из данных чисел. Язык: Паскаль.

Для того чтобы решить задачу на языке Паскаль, нужно правильно сравнить три числа и вывести сначала наименьшее, а затем наибольшее. Вот пример программы, которая это делает:

pascal
Копировать код
program MinMax;
var
  a, b, c: Integer;
  min, max: Integer;
begin
  { Ввод данных }
  ReadLn(a, b, c);
  
  { Инициализация min и max }
  min := a;
  max := a;
  
  { Поиск наименьшего }
  if b < min then
    min := b;
  if c < min then
    min := c;
  
  { Поиск наибольшего }
  if b > max then
    max := b;
  if c > max then
    max := c;
  
  { Вывод результатов }
  WriteLn(min, ' ', max);
end.

Пояснение программы:

1. Сначала мы объявляем три переменные a, b, c, которые будут хранить входные числа. Также объявляем переменные min и max для хранения наименьшего и наибольшего числа.

2. Вводим три числа с помощью команды ReadLn.

3. Инициализируем переменные min и max значением первого числа (a).

4. Далее с помощью условных операторов if проверяем, какое из оставшихся чисел меньше или больше текущего значения min и max, соответственно.

5. После вычислений выводим сначала наименьшее, а затем наибольшее число с помощью WriteLn.

Программа работает корректно для любых трех целых чисел и выведет их в нужном порядке.