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

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

a=["банани","полуниці","персики","алича","грейпфрут","мандарини"]

b=str(input("Який фрукт Ви любите?"))

b=b.lower()

if(b in a):

if(b=="алича"):

b="аличу"

else:

b=b

print(f"Ви дійсно любите {b}!")

if(b=="аличу"):

b="алича"

else:

b=b

else:

print(f"Ні, по-справжньому, Ви не любите {b}!")

while(1==1):

c=str(input("А який ще фрукт Ви любите?"))

c=c.lower()

if(b==c):

print("Цей фрукт ви вже записували!")

continue

elif((b!=c)and(c in a)):

if(c=="алича"):

c="аличу"

else:

c=c

print(f"Ви дійсно любите {c}!")

break

elif((b!=c)and(c not in a)):

if(c=="алича"):

c="аличу"

else:

c=c

print(f"Ні, по-справжньому, Ви не любите {c}!")

break