Question

дано трехзначное число .Определить, заканчивается ли оно четной цифрой.

Answer 1

если последняя цифра делится на 2, значит число четное

Answer 2

Var a:integer;
Begin
Readln(a);
If a mod 2=0 Then Writeln('Чётное') else Writeln('Нечётное');
Readln;
End.