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

вообще признак делимости на 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.     

Любые четные числа делятся на 2 без остатка. Например: 2:2=1, 4:2=2, 6:2=3 и так далее. Если число не четное, то оно делится на 2 с остатком, например: 2,5:2=1,25 , 93:2=46,5 и так далее.