Question

Написать программу. задано натуральное число. определить делится ли оно на два. примечание: проверка делимости на 2 осуществляется следующим образом: пусть n-натуральное число. если n/2=n\2,то число делится на 2, иначе нет. (n/2-обычное деление, n\2-деление нацело)

Answer 1

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