Составить ** Паскале программу определения минимума из трёх чисел без использования...

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.