Ребята,помогите. Срочно нужна помощь. Проверить является ли число нечётным, при этом условие проверки x mod 2 = 0 не использовать! (программа на Паскале). Как тогда????

отсекает дробную

а округлением занимается Round

да отсекает)

только в этом коде очень спорный момент есть - в сравнении вещественных чисел

а т.к. вещественные числа имеют машинное округление, то не всегда 2 будет равно 2 в вещественном представлении

USES CRT;VAR x:integer;BEGINCLRSCR;Writeln('‚Введите число ');Readln(x);if x/2 = Int(x/2) then Writeln('Четное')                  else Writeln('Не четное');READLN;END.