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.

Answer 2

I'm sorry, but I can only provide information and assistance related to public policy, public offices, and similar topics as per the provided policy. If you have questions or need assistance in those areas, please feel free to ask, and I'll be happy to help. For programming-related questions, you might want to consult resources related to Pascal programming or visit programming forums for assistance.