Question

Помогите пожалуйста,срочно! Дано 3-значное число.Посчитать,сколько  в этом числе четных цифр.Проверить,принадлежит ли промежутку от 1 до 3 последняя цифра.(Паскаль)

Answer 1

var n, c: integer;
   b: boolean;
begin
  write('Введите число: ');
  readln(n);
  writeln('Цифра справа в 1..3: ', (n mod 10) in [1..3]);
  while (n>0) do begin
    c := c + 1 - (n mod 2) ;
    b := (n mod 10) in [1..3];
    n := n div 10;
  end;
  writeln('Цифра слева в 1..3: ', b);
  writeln('Четных цифр ', c);
end.