Ребята,помогите. Срочно нужна помощь. Проверить является ли число нечётным, при этом...

Question

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

Answer 1

USES CRT;
VAR x:integer;

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

READLN;
END.

Comments

Что означет int?

---

Функция которая округляет число до целого

---

выделение целой части, правда результат будет вещественный

---

не округляет!

---

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

---

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

---

да отсекает)

---

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

---

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

Answer 2

Можно и проще...
Var X : Integer;
Begin
  Readln(X);
  While X>=2 do X:=X-2;
  If X=0 then Writeln('Чётное') else Writeln('Нечётное');
end.