Question

Помогите, пожалуйста, написать программу в Pascal. Напишите функцию выбора меньшего из целых чисел. Используйте ее в программе выбора наименьшего из трех чисел.

Answer 1

Var a,b,c,m:integer;
function min(x,y:integer):integer;
begin
if x<y then min:=x else min:=y;
end;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
m:=min(min(a,b),c);
writeln('min=',m);
end.

Пример:
a=5
b=3
c=8
min=3

Answer 2

Конечно, я могу помочь вам написать программу на Pascal для выбора наименьшего из трех чисел. Вот пример программы:

program MinOfThree;

function Min(a, b, c: Integer): Integer;
begin
  if (a <= b) and (a <= c) then
    Min := a
  else if (b <= a) and (b <= c) then
    Min := b
  else
    Min := c;
end;

var
  num1, num2, num3, minNum: Integer;

begin
  writeln('Введите три целых числа:');
  readln(num1, num2, num3);

minNum := Min(num1, num2, num3);

writeln('Наименьшее число: ', minNum);
end.

В этой программе мы определяем функцию `Min`, которая принимает три целых числа и возвращает наименьшее из них. Затем мы считываем три числа с помощью `readln` и вызываем функцию `Min`, передавая ей эти числа. Результат сохраняется в переменной `minNum`, и мы выводим его на экран с помощью `writeln`.

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

Надеюсь, это поможет вам написать программу на Pascal для выбора наименьшего из трех чисел! Если у вас возникнут еще вопросы, не стесняйтесь задавать.