Сложная задача

[Paster Fob]

Всем привет.Как-то раз попалась мне такая вот задачка:
Даны два целых числа a и b. Если a делится на b (без остатка) или b делится на a (без остатка), то вывести 1, иначе - любое другое число. Условные операторы и операторы циклов не использовать.
Так я её и не смог осилить.Сможет кто-нибудь решить такое?

[BDA]

Потестируйте получше.

uses
  crt;

var
  a, b: integer;

begin
  readln(a, b);
  a := abs(a);
  b := abs(b);
  writeln(1 div (1 + 1 div (1 + b) + 1 div (1 + a) + (a mod (b + 1 div (1 + b))) * (b mod (a + 1 div (1 + a)))));
  readln;
end.

УПД Вроде "обходит" нули.
Если одно из чисел 0, то ответ 0, т.е. числа не делятся без остатка.

[s-andriano]

writeln(ord(((a mod b) = 0) or ((b mod a)=0)));

[BDA]

s-andriano, да-да, логические выражения)
забываю)
Правда, если а или б равны 0, то возникнет ошибка.

[s-andriano]

Строго говоря, 0 противоречит условиям задачи.
Но вполне с Вами согласен, что правильная программа должна корректно работать и с некорректными данными.
Можно добавить в логическое выражение

and ((a*b)<>0)

Только нужно добавить с "правильной" стороны (не помню, логические выражения вычисляются слева направо или справа налево).

[Stilet]

Слева направо. И оптимизатор на всякий случай включить. Имею ввиду опцию останова когда логические выражения получают однозначный ответ, и продолжение вычисления не требуется.

[s-andriano]

В связи с этой задачкой вспомнилась история.
На самом деле программирование без условных операторов - не такая уж экзотика, как может показаться.
Совсем недавно такое имело место в видеокартах.
Сначала всю картинку, которую надо было вывести на экран, генерировал процессор, но оказалось, что мощности центрального процессора для этого недостаточно.
Поэтому появилось устройство, которое у нас принято называть 3D-ускорителем, а более правильно - GPU.
Первые GPU имели некоторую стандартную функциональность, которой можно было управлять, грубо говоря, при помощи ручек и тумблеров. Т.е. имелся некоторый алгоритм, в котором можно было менять отдельные коэффициенты и включать/выключать отдельные блоки.
Потом появились первые шейдерные блоки, предназначенные для выполнения шейдеров - небольших программ для обработки отдельных фрагментов. Начиная с этого момента, программист мог запрограммировать собственный алгоритм, а не пользоваться стандартным. Шейдерный процессор за счет специализации, конечно, был несколько мощнее центрального, но не настолько, чтобы удовлектворить все возросшие аппетиты любителей трехмерной графики. Чтобы добиться от видеокарты достаточной производительности, GPU включал в себя несколько шейдерных блоков, каждый из которых работал по написанной программистом программе. Но при этом для синхронизации блоков между собой программа должна была выполняться одинаковое количество тактов. Но том уровне проще всего этого было добиться, исключив из системы команд условные переходы. Формально в языке высокого уровня условные операторы были, но они имели любопытную реализацию:
- вычислялись ОБЕ ветки за условием,
- вычислялось условие и расширялось на всю длину слова (т.е. TRUE состоял из одних двоичных единиц, а FALSE - из одних нулей),
- ветка if логически умножалась на это число, а ветка else - на его инверсию, после чего результат складывался.
Очевидно, эта была очень неэффективная реализация, т.к. приходилось считать много того, что принципиально не нужно и будет затем все равно умножено на 0. Соответственно, был спрос на оптимально написанные шейдеры, не содержащие условных переходов и потому быстро выполняющиеся на GPU.

[Алекс!]

writeln(a mod b +1);

[s-andriano]

Сообщение от Алекс!

writeln(a mod b +1);

a=2
b=4

Должно быть 1, а у Вас?

[Алекс!]

Сообщение от s-andriano

a=2
b=4

Должно быть 1, а у Вас?

Извиняй ошибка