Дано целое число оканчивается ли оно четной цифрой.
Паскаль

Предыдущий
вопрос Следующий
вопрос

program CheckEvenDigitEnding;

var
num, lastDigit: Integer;

begin
// вводим число
Write('Введите число: ');
ReadLn(num);

// определяем последнюю цифру числа
lastDigit := Abs(num) mod 10;

// проверяем, является ли последняя цифра четной
if lastDigit mod 2 = 0 then
WriteLn('Число оканчивается четной цифрой.')
else
WriteLn('Число НЕ оканчивается четной цифрой.');
end.