Question

Составьте программу, определяющую, является ли последняя цифра введенного целого числа четным или нечетным числом. Желательно с объяснением. Пример ввода: 12345 Пример вывода: 5 -- нечетное число

Answer 1

Var
  n,d:integer;
begin
  Readln(n);
  d:=n mod 10;
  Write(d,' -- ');
  if d mod 2 = 0 then Writeln('четное число')
  else Writeln('нечетное число')
end.