2) Дано целое число. Определить

- а) является ли оно четным

- б) оканчивается ли нон цифрой 7

-в) оканчивается ли оно четной цифрой. Составное условие не используется.

Var

a, b : integer;

begin

b : = 0;

readln (a);

if a mod 2 = 0 then writeln ('Число четное');

else writeln ('Число нечетное');

b : = a mod 10;

if b = 7 then writeln ('Число заканчивается на 7');

else writeln ('Число не заканчивается на 7');

if b mod 2 = 0 then writeln ('Число оканчивается четным числом');

else writeln ('Число не оканчивается черным числом');

end.