Question

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

Answer 1

var a,b:integer;

Begin

Write('Введите первое число: ');

Readln(a);

Write('Введите второе число: ');

Readln(b);

Writeln('Минимальное число: ',min(a,b))

end.

Answer 2

Конечно, вот пример программы на языке Паскаль, которая выполняет задачу, описанную вами:

pascalCopy code
program FindSmallerNumber;

var
  num1, num2, smaller: Integer;

begin
  writeln('Введите первое число:');
  readln(num1);

  writeln('Введите второе число:');
  readln(num2);

  if num1 < num2 then
    smaller := num1
  else
    smaller := num2;

  writeln('Меньшее число: ', smaller);
end.

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