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

USES CRT;
VAR x:integer;

BEGIN
CLRSCR;
Writeln(‚Введите число );
Readln(x);
if x/2 = Int(x/2) then Writeln(Четное)
else Writeln(Не четное);

READLN;
END.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!