Question

Задача на языке Паскаль найти меньшее из двух чисел

Answer 1

var a, b: integer;

begin

read(a, b);

writeln(min(a, b));

end.

Answer 2

Вот пример задачи на языке Паскаль, которая находит меньшее из двух чисел:

pascalCopy code
program FindSmaller;
var
  num1, num2, smaller: Integer;
begin
  writeln('Введите первое число:');
  readln(num1);
  
  writeln('Введите второе число:');
  readln(num2);
  
  if num1 < num2 then
    smaller := num1
  else
    smaller := num2;
  
  writeln('Меньшее число: ', smaller);
  readln;
end.

В этом примере программа запрашивает два числа у пользователя и сравнивает их с помощью оператора if. Если первое число (num1) меньше второго числа (num2), то оно присваивается переменной smaller. В противном случае, второе число присваивается переменной smaller. Затем программа выводит меньшее число на экран.