Re: Цікаві задачі
Pascal
a := ... //число яке перевіряємо b := (a shr 1) c := (a mod 3) d := not (boolean)( b and c ) result d;
А чому зупинилися на 3? Якщо int знаковий 2-байтний, то треба до 32749 йти...
Ну і не кажу про те, що:
- це не Паскаль (хоча й щось паскалевидне);
- ця гілка не про Паскаль.
Втім, цілком зарахую відповідь на Паскалі, якщо вкладеться, скажімо, в 2000 символів. У мене програма на C з людськими назвами і відступами в 300 символів вклалася. Заради цікавості стиснув - вийшло 156 символів, і цілком можливо, що можна й менше, я не профі в мініфікації.