Делится ли заданное число на два?

Вообще признак делимости на 2 можно определитьпроще. Если остаток от деления на 2=0 тогда число делится на 2 нацелоиначе нет if (n mod 2)=0 then writeln ('Число делится на 2 нацело') else writeln ('Число не делиться на 2 нацело'); Однако если по условию задачи признак, такой то уж ничего не пделаешь Program evenNum; Uses crt; var n: real; begin clrscr; write ('Введите число n: '); readln (n); if (n/2) <> (n div 2) then writeln ('Число не делится на 2 нацело') else writeln ('Число делится на 2 нацело'); readkey; end.