Составить на Паскале программу определения минимума из трёх чисел без использования логических операций. Программа должна иметь дружественный интерфейс (ввод данных осуществляться в режиме диалога).
program MinOfThreeNumbers; var num1, num2, num3, min: integer; begin writeln('Enter the first number:'); readln(num1); writeln('Enter the second number:'); readln(num2); writeln('Enter the third number:'); readln(num3); min := num1; if num2 < min then min := num2; if num3 < min then min := num3; writeln('The minimum number is: ', min); end.
Программа спрашивает у пользователя три числа и определяет минимальное из них.
var
num1, num2, num3, min: integer;
begin
writeln('Enter the first number:');
readln(num1);
writeln('Enter the second number:');
readln(num2);
writeln('Enter the third number:');
readln(num3);
min := num1;
if num2 < min then
min := num2;
if num3 < min then
min := num3;
writeln('The minimum number is: ', min);
end.
Программа спрашивает у пользователя три числа и определяет минимальное из них.