Составить на паскале программу определения минимума из трёх чисел без использования логических операций. программа должна иметь дружественный интерфейс (ввод данных осуществляться в режиме диалога).
if a < b then if a < c then writeln(a, ' - меньшее') else writeln(c, ' - меньшее') else if b < c then writeln(b, ' - меньшее') else writeln(c, ' - меньшее'); end.
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.