Сравнить два числа без условий и стандартными операциями

[fastdeath]

Необходимо сравнить два натуральных числа , используя только +-*/ div mod .
Разветвления (условия , циклы ) использовать нельзя
Голова сломана )

[Serge_Bliznykov]

расскажите, что означает - сравнить?
Выдать что "первое число больше", или "второе число больше"?
циклы использовать можно?


может устроит вариант решения с выдачей ответа вида: "Число XXXX больше!" (вместо XXXX - значение большего из чисел...) ?
/если ответ положительный - то поиском найдетё решение/

[fastdeath]

Циклы - нельзя, так как это ветвление.
Выдать надо , как вы сказали , "Число x больше"

[Serge_Bliznykov]

я же говорю - поиском можно найти!

например,
ТЫРК

или

{найти наибольшее наименьше значение без оператора сравнения}

var a,b : longint;
   MinVal, MaxVal : integer;
begin
   WriteLn('Введите два целых числа: ');
   Readln(a, b );
   MinVal := (a+b-abs(a-b)) div 2 ;
   MaxVal := (a+b+abs(a-b)) div 2 ;
   WriteLn('Число ',MaxVal,' не меньше, чем число ',MinVal);
   Readln
end.

[Poma][a]

Сообщение от fastdeath

Необходимо сравнить два натуральных числа , используя только +-*/ div mod .
Разветвления (условия , циклы ) использовать нельзя
Голова сломана )

а это задание из олимпиады школьного тура по программированию

[fastdeath]

Сообщение от Serge_Bliznykov

я же говорю - поиском можно найти!

например,
ТЫРК

или

{найти наибольшее наименьше значение без оператора сравнения}

var a,b : longint;
   MinVal, MaxVal : integer;
begin
   WriteLn('Введите два целых числа: ');
   Readln(a, b );
   MinVal := (a+b-abs(a-b)) div 2 ;
   MaxVal := (a+b+abs(a-b)) div 2 ;
   WriteLn('Число ',MaxVal,' не меньше, чем число ',MinVal);
   Readln
end.

abs тоже нельзя использовать

[fastdeath]

Сообщение от Poma][a

а это задание из олимпиады школьного тура по программированию

Угу , только не вижу его практической подоплёки.

[Serge_Bliznykov]

abs тоже нельзя использовать

функцию извлечения корня квадратного (функция SQRT) - то же нельзя использовать?!

[JUDAS]

используя только +-*/ div mod
--------
хахаха . задача жесть

WriteLn('Value ',a-(a-b)*byte(a>b),' < ',b-(b-a)*byte(a>b));

а если оптимизировать код то:

WriteLn('Value ',a-(a-b),' > ',b-(b-a));

[Alex11223]

WriteLn('Value ',a-(a-b)*byte(a>b),' < ',b-(b-a)*byte(a>b));

Нельзя же < или > использовать.