ЮК
Юля Крапивина
сравнение чисел одной формулой без использования операций сравнения
даны 3 числа если а<=в<=с то вывести 1 иначе 0, не используя операций сравнения
даны 3 числа если а<=в<=с то вывести 1 иначе 0, не используя операций сравнения
это так задали или сам себе гемарой придумал?
function cond(a,b:real):integer;
begin
cond:= sign(a-b) shr 15; // или 31 если твой паскаль - 32-битный
end;
writeln(cond(1, cond(a,b)+cond(b,c)));
Это должно работать для a