begin // вводим число Write('Введите число: '); ReadLn(num);
// определяем последнюю цифру числа lastDigit := Abs(num) mod 10;
// проверяем, является ли последняя цифра четной if lastDigit mod 2 = 0 then WriteLn('Число оканчивается четной цифрой.') else WriteLn('Число НЕ оканчивается четной цифрой.'); end.
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.