Помогите решить задачу!!!
Написать программу проверяющую истинность высказывания "Одно из четырех чисел отлично от других, равных между собой"
Пришлите исходник Пожалуйста!
програмирование в Delphi
Думаю, так, но не уверен:
result:=a xor b xor c xor d in [a xor b, c xor d];
result:=a xor b xor c xor d in [a xor b, c xor d];
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
или так:
result := (byte(a=b)+byte(b=c)+byte(c=d)+byte(a=d))=2;
result := (byte(a=b)+byte(b=c)+byte(c=d)+byte(a=d))=2;
It's a long way to the top if you wanna rock'n'roll