Написать программу без использования "if-then"

[Melian1]

Всем привет) Очень нужна ваша помощь, написать нужно всего лишь строчку.

Даны 3 числа: А,B,C.
Написать программу, которая выдает 1, если числа расположены по возрастанию и 0, если наоборот. НО запрещается использовать "if-then" и вообще любые циклы. Можно использовать умножение, деление, остатки и т.д.)

var a,b,c,rez:integer;

Begin
WriteLn("Введите 3 числа");
ReadLn(a,b,c);

rez:=(вот это нужно написать)

WriteLn(rez);
End.

[Mad_Cat]

Будем считать что числа расположены либо по возрастанию либо по убыванию

//f:boolean
f:=a>=b;
case f of
true: f:=b>=c;
end;
case f of
true:rez:=1;
false:rez:=0;
end;

"if-then" и вообще любые циклы

как видите не используются)

[Melian1]

Спасибо большое) Но, если я не ошибаюсь, там должна быть всего лишь одна строка с использованием +,-,*,/, mod. Что-то из этого и все.

[Serge_Bliznykov]

так не подойдёт?

  rez := ord( ord(c>b) and ord(b>a));

и пусть тот, кто скажет, что здесь есть цикл или условный оператор первым кинет в меня камень!

лирическое отступление.
Никогда не понимал задачи, где вводится искусственное ограничение на используемые операторы/методы/инструменты и т.п...
Напоминает, попытку почесать за левым ухом большим пальцем правой ноги (другим нельзя!!)

[Melian1]

Вот, именно это я и искала) Спасибо огромное!

[Plague]

Serge, логические (булевы) выражения используются для того что бы программа была не линейной? True? А не линейность это и есть "if-then"?

[Serge_Bliznykov]

Plague, простите, не понял...
в данном случае программа линейная (не имеет ветлений). Булевые выражения исполльзуются для того, чтобы вычислить значение выражения, которое может принимать одно из двух значений (Истина\Ложь, True\False). К линейности/нелинейности программы непосредственно булевые выражения отношения не имеют..
Или Вы что-то другое имели в виду?

[Stilet]

Или Вы что-то другое имели в виду?

Ребята, вас рассудит дизассемблер - если в коде Сержа он не найдет операторов Jxxx (а он их там не найдет, я уверен), значит программа не ветвится