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.