Напишите программу в Паскале Определить является ли число четным, оканчивающимся на 4

да

потому что оно делиться на два

var

 x : integer;

 begin

   write('x=');

   readln(x);

   if x mod 10 = 4 then

     writeln('Число чётное и оканчивается на 4')

   else

     writeln('Число или нечётное, или не оканчивается на 4');

 end.

в десятичной:

45 = (4*8)^1 + (5*8)^0 = 32 + 1 = 33

106 = (1*8)^2 + (0*8)^1 + (6*8)^0 = 64 + 1 = 65

в двоичной:

45 = 101101

106 = 1101010

страус- самая крупная в мире птица. не летает