Question

Составить на Паскале программу определения минимума из трёх чисел без использования логических операций. Программа должна иметь дружественный интерфейс (ввод данных осуществляться в режиме диалога).

Answer 1

var
a, b, c: integer;

begin

write('a=');
readln(a);

write('b=');
readln(b);

write('c=');
readln(c);

if a < b then
if a < c then writeln(a, ' - меньшее')
else writeln(c, ' - меньшее')
else
if b < c then writeln(b, ' - меньшее')
else writeln(c, ' - меньшее');
end.

Answer 2

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

program min_of_three;
var
  a, b, c, min: integer;
begin
  writeln('Введите три целых числа:');
  readln(a, b, c);
  min := a;
  if b < min then min := b;
  if c < min then min := c;
  writeln('Минимальное число из ', a, ', ', b, ' и ', c, ' это ', min);
end.

Вы можете проверить работу программы на онлайн-компиляторе Паскаля, например, [здесь]. Надеюсь, это было полезно.