Question

СОСТАВЬТЕ НЕ МЕНЕЕ ТРЕХ ВАРИАНТОВ ПРОГРАММЫ ОПРЕДЕЛЕНИЯ НАИМЕНЬШЕГО ИЗ ТРЕХ ДАННЫХ ЧИСЕЛ....Пожалуйста

Answer 1

var

  a, b, c, m : integer;

begin

  read (a, b, c);

  m := a;

  if b < m then m := b;

  if c < m then m := c;

  writeln (m);

end.

 

var

  a : array [1..3] of integer;

  i, m : integer;

begin

  m := a[1];

  for i := 2 to 3 do

    if a[i] < m then m := a[i];

  writeln (m);

end.

 

var

  a, b, c : integer;

begin

  read (a, b, c);

  if (a <= b) and (a <= c) then writeln (a)

  else if (b <= c) and (b <= a)  then writeln (b)

  else writeln (c);

end.

Answer 2

Программа определения наименьшего из трех данных чисел может быть реализована несколькими способами.

Вариант 1: 1. Вводим три числа с клавиатуры. 2. Сравниваем первое число с остальными двумя и записываем наименьшее из них. 3. Сравниваем полученное наименьшее число с третьим числом и записываем наименьшее из них. 4. Выводим на экран полученное наименьшее число.

Вариант 2: 1. Вводим три числа с клавиатуры. 2. Инициализируем переменную минимум значением первого числа. 3. Сравниваем второе число с минимумом и, если оно меньше, обновляем значение минимума. 4. Сравниваем третье число с минимумом и, если оно меньше, обновляем значение минимума. 5. Выводим на экран полученное значение минимума.

Вариант 3: 1. Вводим три числа с клавиатуры. 2. Используем функцию min() для определения наименьшего из трех чисел. 3. Выводим на экран результат функции min().

Все три варианта программы дадут одинаковый результат - наименьшее из трех данных чисел. Выбор конкретного варианта зависит от предпочтений программиста и требований задачи.