Вводится двузначное число с клавиатуры.Отыскать сумму цифр этого числа и проверить,является

Вводится двузначное число с клавиатуры.Отыскать сумму цифр этого числа и проверить,является эта сумма четным числом либо нет.Помогите пожалуйста:(

Задать свой вопрос
1 ответ
Var
  n, sum :integer;

begin

  readln(n);
  sum:= (n div 10) + (n mod 10);
  write(sum,' - ');
  if sum mod 2 = 0 then
    write('четная')
  else
    write('нечетная');

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт