Question

написать программу. Задано натуральное число. Определить делится ли оно на два. Примечание: проверка делимости на 2 осуществляется следующим образом: пусть N-натуральное число. Если N/2=N2,то число делится на 2, иначе нет. (N/2-обычное деление, N2-деление нацело)

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.