Question

даны три числа x y x определить какое из них равно k если ни одно не равно k то найти min(k-x, k-y, k-z). Pascal, только не с biolean, а с integer​

Answer 1

biolean?)))

var x, y, z, k:integer;

begin

readln(x, y, z, k);

if k = x then

write('k равно x')

else if k = y then

write('k равно у')

else if k = z then

write('k равно z')

else

write(min(min(k-x, k-y), k-z));

end.